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54 1 GENERAL INFORMATION 

55 

z= 1.1 Product Description 

7 

58 The TU81 Functional Diagnostic is intended to provide 
59 confidence in the basic functionality of the TU81 subsystem. As such, 
60 this should be the first host level diagnostic run on the Tuas 
61 subsystem to verify installation, or for troubleshooting. Throughout 
62 the program, emphasis is placed on isolating faults to the Field 
oF Replaceable Unit (FRU). 

6 

65 The program runs in standalone mode in conjunction with the 
66 POP-11 family Diagnostic Supervisor. In addition to host level 
67 testing, the program will implicitly invoke the TU81's controller 
68 resident Level 1 self-test microdiagnostics as well as explicitly 
69 invoking the controller's Level 2 microdiagnostics. 

70 

71 

72 

73 1.2 Product Users And Uses 

74 

75 

76 1. DMT testing 

77 

78 2. As appropriate at various manufacturing facilities 

79 

80 3. Field service personnel 

81 

+4 4. DEC customers who choose to provide their own maintainance 

8 

84 

85 

86 

87 1.3 Performance Goals 

88 

89 This program will test up to four TU81's in a sequential 
90 manner . To run a_ full pass of the program, a scratch tape must be 
91 mounted on the transport and an operator must be present to perform 
92 manual intervention. However, appropriate subsets of the program can 
93 be run if there is no scratch tape, or the operator inhibits manual 
94 intervention tests. Furthermore, the first pass of the program will 
95 run in “quick verify” mode; i.e., a single iteration of each test will 
96 be performed. If multiple passes are specified by the operator, the 
97 second and all subsequent passes will run with each test executed with 
98 multiple iterations. First pass execution time will be approximately 
99 20 minutes while second pass execution time will be approximately 24 
100 minutes. These pass times are based on a single unit under test. 
101 
102 1.4 Pass/Fail Criteria 
103 
104 This program employs a bottom-up approach to testing the TU81; 
105 that is, Test 1 will attempt to verify the simplest level of 
106 host-to-controller communication as outlined in UQSSP. Each 
107 subsequent test builds upon the functionality alréady verified in 
108 previous tests. Hence, most errors encountered by the program will be 
1909 considered as fatal device errors and the failing unit will be dropped 
110 from the rest of the test sequence. 
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1.8 Runtime Environment Requirements 





1.5 Failsoft Goals 


Unit specific problems will be handled by the program. CPU 
faults (Ci.e., illegal traps or interrupts) will be handled by the 
Diagnostic Supervisor. System faults will be handled by the 
Diagnostic Supervisor, fault dependent. 


1.6 Restrictions 


Although basic read/write testing is performed, this program 
is not interested in measuring the subsystem's data reliability. 
While recoverable data errors will be reported by the program, no 
attempt will be made to determine the subsystem’s compliance with 
error rates. Unrecoverable data errors will be considered as fatal 
device errors, although the media could be the causative factor. 


1.7 Non-Goals 


This program is intended to verify the gross functionality of 
host-to-controller communications, the integrity of the controller 
hardware, controller-to-drive | communication and the basic 
functionality of the drive. It is not intended as a verification of 
TMSCP protocol as implemented in the controller firmware, and no 
testing of TMSCP commands is provided. 





Runtime environment requirements include: 
XXDP+ Diagnostic Supervisor 
POP-11 family CPU 


28 KW memory 

Console Terminal 

Load Device 

1 to 4 TU81 tape drives with controllers 
1 to 4 TU81 scratch tapes (optional) 
LCP-S UFD software (optional) 


onaoeus wa we 
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2 USER INTERFACE 









2.1 User Dialogue 
The following user dialogue will be provided at program 


start-time to allow the user to establish certain operational 
parameters of the program. 


2.1.1 Hardware Questions - 


This set of questions must be answered when the program is 
first started. 


CHANGE HARDWARE (L)? no default 

ata OF UNITS (D)? enter number from 1-4 
x 

BASE ADDRESS (0) 774500? 


VECTOR (0) 260? 
UNIT NUMBER (0)? 


2.1.2 Definition Of Hardware Questions - 

CHANGE HARDWARE - This question merely wants to know if you want to 
reconfigure the units under test. It must be answered “yes” on the 
first pass of the program. 

NUMBER OF UNITS - Enter the number of TU81's to be tested. 

BASE ADDRESS - Enter the I0 address of the unit to be tested. 

VECTOR - Enter the vector location to be used for the unit. 

UNIT NUMBER - Enter the MSCP-specified unit number for the unit. 


This entire set of questions will be repeated up to four times, 
depending on the user's response to the “number of units” question. 


2.1.3 Software Questions - 


Most of the optional functionality of the program is either s 
handled automatically by the program or through established procedures 
provided by the Diagnostic Supervisor hence there are no software 
questions. 


a 
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3 ERROR REPORTS 
Error reports will have two basic formats as described below. 
It is anticipated that, due to program partitioning, it will be 


possible to unambiguously define a single FRU as the cause of any 
error condition. 


3.1 Error Format 1 

This basic format will be used by all host level testing. 
CZTU2 error eeeee on unit 1l test ttt sub sss PC: xxxxxx 
SA CONTENTS IN ERROR 

INIT SEQUENCE STEP #: n 

SA RE: wwwwww EXPCTD: yyyyyy ACTUAL SA: zzzzzz 
*&&&FAILING FRU: LESI/CONTROLLER/CABLE*««% 


In this example, the fields have the following meanings: 


- eeeee = discrete error number as defined by program 


- 11 = logical unit number assigned to unit-in-error during 
hardware questions 


- ttt = test number during which error occurred 
- sss = subtest number 
- XXXxXxXx = program location of error call 


- 1m = step number of the UQSSP initialization sequence which 
detected the error condition 


- wwwwww = physical address of the SA register 
- yyyyyy = expected contents of SA register for this step 


- 2zzzzz = actual SA register contents 





SEQ 6 





SS 
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260 3.2 Error Format 2 

261 

262 This format will be used for errors detected by the Level 2 

os microdiagnostics. 
4 

265 CZTU2AO DVC FTL error eeeee on unit 11 test ttt sub sss PC: xxxxxx 

266 INTERNAL DRIVE TEST FAILED 

267 

268 

269 FAULT CODE: ff SUB-FAULT CODE: cc 

coe REFER TO PATHFINDER FOR EXPLANATION OF CODES. 
1 

272 x&k&FAILING FRU: DRIVEseae 

273 

274 

are In this example, the fields have the following meanings: 
6 

277 

278 - eeeee = see above 

279 

280 - 1l = see above 

281 

282 - ttt = see above 

283 

284 - sss = see above 

285 

286 - XXXXxx = see above 

287 

288 - ff = refer to pathfinder 

289 

290 - cc = refer to pathfinder 
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4 FUNCTIONAL DESCRIPTION 


The following test descriptions all have certain points in 
common. All errors specified below will cause the unit to be dropped 
from the test, unless specifically noted to the contrary. 
Furthermore, if the operator has chosen loop-on-error (LOE flag set) 
scope loops will return to the Th gee tes of the test containing the 
failure. Exceptions to this will also be noted explicitly below. To 
understand the normal four step initialization sequence, refer to the 
UQSSP; the descriptions of tests that use this sequence will only 
highlight unique features utilized by that specific test. 


4.2 TEST 1 < Existence Verfication Test > - 
TEST DESCRIPTION: 


This test verifies the TU81 IP and SA registers can 
be accessed on the unitus through the UBA. 


TEST STEPS: 


BGNTEST 
Initialize the Unibus 
IF error on initialize 
THEN Print System error and ABORT program 
Clear UBA status 
IF error on Clear status 
THEN Print System error and ABORT program 
Read the IP register 
Wait 100 microseconds for possible Unibus timeout 
Read UBA status 
IF Unibus timeout error 
THEN Print Fatal device error and drop unit 
IF any UBA error 
THEN Print Fatal device error and ABORT program 
Read the SA register 
Wait 100 microseconds for possible Unibus timeout 
Read UBA status 
IF any UBA error 
THEN Print Fatel device error and ABORT program 
ENOTEST 


DEBUG: 


No error looping is allowed all errors abort the test or program 


The FRU is the Lesi Adapter for all errors in this test. 








(re er 5 en Se a 
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341 4.2 TEST 2 < Initialization Test > - 
342 
a TEST DESCRIPTION: 
345 This test will do a TU81 controller hard initialize 
346 to cause the rom resident power up diagnostics 
347 in the tu81 to be run. 
348 
349 TEST STEPS: 
350 
351 BGNTEST 
352 Call dup__ipinit to write to the Ip register to begin 
353 hard initialize and wait for STEP 1. 
354 IF the TU81 fails to enter STEP 1 
355 THEN print fatal device error and drop unit 
356 Compare step 1 data expd with recv 
357 IF data compare error 
358 THEN print fatal device error and drop unit 
359 ENDTEST 
360 
361 
362 DEBUG: 
363 
364 If loop on error specified then loop to start of test. 
365 The FRU is the Lesi Adapter for all errors in this test. 
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44 4.3 TEST 3 « Initialization Test > - 
8 
4 TEST DESCRIPTION: 
0 
371 This test will do a TU81 controller hard initialize 
372 then do initialization steps 1 through 3. 
373 It will wait for step 4 to be entered but no step 4 
Le testing will be done in this test. 
376 TEST STEPS: 
377 
378 BGNTEST 
379 Call dup__ipinit to write to the Ip register to begin 
380 hard initialize and wait for STEP 1. 
381 IF the TU81 fails to enter STEP 1 
382 THEN print fatal device error and drop unit 
383 ; Compare step 1 date expd with recv 
384 IF data compare error 
a. THEN print fatel device error and drop unit 
6 
387 Call dup__step1 to write step 1 bit pattern and wait step 2 
388 IF the TU81 fails to enter STEP 2 
389 THEN print fatal device error and drop unit 
390 Compare step 2 data expd with recv 
391 IF data compare error 
a THEN print fatel device error and drop unit 
394 Call dup__step2 to write step 2 bit pattern and wait step 3 
395 IF the TU81 fails to enter STEP 3 
396 THEN print fatal device error and drop unit 
397 Compere step 3 data expd with recv 
398 IF data compare error 
399 THEN print fatal device error and drop unit 
400 
401 Call dup__step3 to write step 3 bit pattern and wait step 4 
402 IF the TU81 fails to enter STEP 4 
403 THEN print fatal device error and drop unit 
404 - Compare step 4 data expd with recv 
405 IF data compare error 
406 THEN print fatal device error and drop unit 
407 ENDTEST 
408 
409 
410 DEBUG: 
411 
412 If loop on error specified then loop to start of test. 
= The FRU is the Lesi Adapter for all errors in this test. 
41 


— 
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at 4.4 TEST 4 < SA Register Wrap Test > - 
41 
ne TEST DESCRIPTION: 
1 
420 The TU81 will be initialized in diagnostic wrap mode 
421 and then a one (1) bit will be floated through the 
422 SA register to see that it echoes properly. 
423 The process will be repeated to float a zero (0) 
ass through the SA register. 
42 
426 TEST STEPS: 
427 
428 BGNTEST 
429 Call dup__ipinit to write to the Ip register to begin 
430 hard initialize and wait for STEP 1. 
431 IF the TU81 fails to enter STEP i 
432 THEN print fatal device error and drop unit 
433 Call dup__step__1 to set diagnostic wrap mode 
434 REPEAT for all data in FLOAT__table 
435 Write data pattern into SA register 
436 Start a 10 second timer 
437 Read SA register until the read pattern equals the 
438 write pattern or 10 second timer times out. 
439 IF 10 second timer expired 
440 THEN Print Fatal device error and drop unit 
441 END-REPEAT 
442 Call dup__ipinit to write to the Ip register to begin 
443 hard initialize and wait for STEP 1. 
444 IF the TU81 fails to enter STEP 1 
445 THEN print fatal device error and drop unit 
446 ENDTEST 
447 
448 FLOAT__table: 
449 FLOATING 1'S 1,2,4,10,20,40,100,200,400,1000, 2000 
450 4060 , 10000 ,20000 ,40000 , 100000 
= FLOATING 0’‘S Floating 1's complemented 
453 DEBUG: 
454 
455 If loop on error specified then loop on failing write and read. 
456 The FRU is the Lesi Adapter and tu81 controller 
457 for all errors in this test. 
458 
459 


— 
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461 4.5 TEST 5 < Vector And BR Level Test > - 

462 

463 TEST DESCRIPTION: 

464 

465 The TU81 will be initialized with interrupt enable 
466 set to verify that the TU81 interrupts to the 

467 correct vector and BR level. 

aos This test is only run on the first pass. 

470 TEST STEPS: 

471 

472 BGNTEST 

473 Call dup__ipinit to write to the Ip register to begin 
474 hard initialize and wait for STEP 1. 

475 IF the TU81 fails to enter STEP 1 

pha THEN Print fatal device error and drop unit 
478 Set IPL to highest priority to lock out interrupts 
479 Clear UBA status 

480 IF error on Clear status 

481 THEN Print System error and ABORT program 
482 Enable UBA interrupts 

483 IF error on enable uba interrupts 

— THEN Print System error and ABORT program 

486 Call dup__step__1 to set interrupt enable 

487 IF the TU81 fails to enter STEP 2 

488 THEN Print Fatal device error and drop unit 
489 CA tu81 step 2 interrupt should be pending here) 
490 Lower the IPL until interrupt occurs or level equals X10 (lowest) 
491 IF no Tu81 interrupt occurred 

492 THEN Print Fatal device error and drop unit 
493 IF any error detected in interrupt service 

494 THEN Print Fatal system error and ABORT test 
495 IF the interrupt occurred at the wrong vector 

496 THEN Print Fatal device error and drop unit 
497 IF the interrupt occurred at the wrong BR level 
ane THEN Print Fatal device error and drop unit 

4 

500 Disable UBA interrupts 

501 IF error on Disable ube interrupts 

eos THEN Print System error and ABORT program 

504 Call dup__ipinit to write to the Ip e+ to begin 
505 hard initialize and wait for STEP 1. 

506 IF the TU81 fails to enter STEP 1 

507 THEN Print Fatal device error and drop unit 
508 ENDTEST 





— 
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DEBUG: 





Possible reasons for incorrect interrupt vector include: 
1. Incorrect hardware configuration 
2. The ATTACH command specified the wrong vector 
3. Bad Lesi adapter 
4. Bad TU81 controller 
If loop on error specified then loop to start of the test 


The FRU is the Lesi Adapter and tu81i controller 
for all errors in this test. 


Ee 


enn Sse 
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oe 4.6 TEST 6 < Purge And Poll Test > - 
5 

vey TEST DESCRIPTION: 

528 This test will perform steps 1-3 of the initialize sequence 
529 then set the purge/poll bit in step 3. 

530 The purge/poll sequence will then proceed to: 

531 1. Write 0's to the SA register to simulate ube purge complete. 
$32 2. Read and disregard the IP register to start polling 
34 3. Wait for the controller to go into step 4. 
535 TEST STEPS: 

536 

537 BGNTEST 

538 Call dup__ipinit to write to the Ip register to begin 

539 hard initialize and wait for STEP 1. 

540 IF the TU81 fails to enter STEP i 

541 THEN Print fatal device error and drop unit 

542 Compare step 1 data expd with recv 

543 IF data compare error 

os THEN Print fatal device error and drop unit 

54 

546 Call dup__stepi to write step 1 bit pattern and wait step 2 
547 IF the TU81 fails to enter STEP 2 

548 THEN Print fatel device error and drop unit 

S49 Compare step 2 date expd with recv 

550 4 IF data compare error 
ots THEN Print fatal device error and drop unit 

52 

553 Cell dup__step2 to write step 2 bit pattern and wait step 3 
554 IF the TU81 fails to enter STEP 3 
555 THEN Print fatal device error and drop unit 

556 Compare step 3 data expd with recv 

557 IF date compare error 

558 THEN Print fatel device error and drop unit 

559 « 

560 Call dup__step3 to write purge/poll bit (sa_pp_3) 

561 IF the controller fails to clear the SA within 100 micros 
562 THEN Print fatal device error and drop unit 

563 Write 0's to the SA to simulate uba purge complete 

564 Read and disregard the IP register to start polling 

565 & 

566 IF the TU81 fails to enter STEP 4 within 10 seconds 

567 THEN Print fatal device error and drop unit 

568 ENDTEST 

569 

570 

571 DEBUG: 

572 

573 If loop on error specified then loop to start of test. 

S574 The FRU is the Lesi Adapter for all errors in this test. 
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a 4.7 TEST 7 < Small Ring Test > - 

1 TEST DESCRIPTION: 

580 This test will do steps 1-4 of the TU81 initialization, 
581 with the smallest ring buffer size (1 cmd and 1 rsp buffer) 
582 and interrupts disabled. 

583 The test will verify the controller clears the ring 
584 descriptor field in the host communications area. 

585 This is the first time the initialize sequence is carried 
586 out to the point where the controller npr’'s to memory 
587 are verified. 

588 

589 TEST STEPS: 

590 

591 BGNTEST 

592 Set cmd and rsp ring descriptors to -1 

593 Set cmd ring length word to 0 to indicate 1 cmd buffer 
594 Set rsp ring length word to 0 to indicate 1 rsp buffer 
595 Call Dup_Init to write to the Ip register to force 

596 a hard initialize, then perform steps 1-4. 

597 IF the TU81 fails to enter any step 

598 THEN print fatal device error and drop unit 

599 IF the cmd and rsp ring descriptors not cleared 

600 THEN print fatal device error and drop unit 

601 ENDTEST 

602 

603 

604 DEBUG: 

605 

606 If loop on error specified then loop to start of test. 
607 The FRU is the Lesi Adapter and TU81 controller 

608 for all errors in this test. 
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610 4.8 TEST 8 < Maximum Ring Buffer Test > - 

611 

612 TEST DESCRIPTION: 

613 

614 

615 

616 This test will do steps 1-4 of the TU81 initialization, 
617 with the largest number of ring descriptors allowed 

618 (128 cmd and 128 rsp buffers) and interrupts disabled. 
619 The test will verify the controller clears the ring 

620 descriptor field in the host communications erea. 

621 This test verifies the controller can access the complete 
ee host commmunication area in Vax memory (1024+4 words). 

6 

624 TEST STEPS; 

625 ! 

626 BGNTEST 

627 Set cmd and rsp ring descriptors to -1 

628 Set cmd ring length word to 7 to indicate 128 cmd buffers (24##7=128) 
629 Set rsp ring length word to 7 to indicate 128 rsp buffers (2##7=128) 
630 Call Dup__Init to write to the Ip register to force 

631 a hard initialize, then perform steps 1-4. 

632 IF the TU81 fails to enter any step 

633 THEN print fatal device error and drop unit 

634 IF the cmd and rsp ring descriptors not cleared 

635 THEN print fatal device error and drop unit 

636 ENDTEST 

637 

638 

639 DEBUG: 

640 

641 If loop on error specified then loop to start of test. 
642 The FRU is the Lesi Adapter and TU81 controller 

643 for all errors in this test. 

644 Note: 

645 This test overlays the host communications area with 
646 128 cmd ring descriptors and 128 rsp ring descriptors. 
647 The actual associated ring buffers are not allocated. 
648 The rest of the tests use just one cmd and one rsp 
649 buffer. 
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ozs 4.9 TEST 9 < Get DUST Status > - 

652 

653 TEST DESCRIPTION: 

654 

655 This test will request the DUST status and verify the 

656 response packet is received as expected. 

657 It is also verifies invalid command status is returned 

658 when illegal modifiers are specified in the command packet. 
659 The GET DUST command does not allow any command modifiers. 
660 This is the first time a command packet is actually sent to 
ose the controller and a response packet received. 

663 TEST STEPS: 

664 

665 BGNSUB 1 *Get DUST command with valid modifiers« 

666 Set cmd and rsp ring descriptors to -1 

667 Set cmd ring length word to 0 to indicate 1 cmd buffer 

668 Set rsp ring length word to 0 to indicate 1 rsp buffer 

669 Call Dup__Init to write to the Ip register to force 

670 a hard initialize, then perform steps 1-4. Go bit set to 1 
671 IF the TU81 fails to enter any step 

672 THEN print fatal device error and drop unit 

673 IF the cmd and rsp ring descriptors are not cleared 

674 THEN print fatal device error and drop unit 

675 Call exe__getdust to execute a GET DUST command 

676 IF Exe__getdust returns SS$__TIMEOUT code 

677 THEN print fatal device timeout error and drop unit 

678 IF the rsp Command reference number NOT = 1 

679 THEN print hard device error 

680 IF the rsp Endcode NOT= (get_dust code + 200 octal) 

681 THEN print hard device error 

682 IF the rsp Status NOT= success 

683 THEN print hard device error 

684 IF the rsp buffer FLAGS data is NOT as follows: 

685 1. Bit<O> = 1 !du_p_dust__flag dis - disable other servers 
686 ’ 2. Bit<i> = 1 !dup__dust__flag_media - server has local media (rom) 
687 3. Bit<2> = 1 !dup__dust__flag__nosup - exe__supplied cmd not allowed 
688 4. Bit<3> = 0 !dup__dust__fla_g_act - server not active 
689 THEN print hard device error 

690 ENDSUB 1 

691 

692 BGNSUB 2 *Get DUST command with illegal modifiers« 

693 Call exe__getdust to execute a GET DUST command 

694 IF Exe__getdust returns SS$__TIMEOUT code 

695 THEN print fatal device timeout error and drop unit 

696 IF the rsp Command reference number NOT = 2 

697 THEN print hard device error 

698 IF the rsp Endcode NOT= (get__dust code + 80 hex) 

699 THEN print hard device error 

700 IF the rsp Status NOT= INVALID COMMAND 

701 THEN print hard device error 

702 ENDSUB 2 

703 

704 ENDTEST 


Ei cecilia a oe ee ee. 
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706 DEBUG: 

707 

708 If loop on error specified then loop to start of test. 
709 The FRU is the lesi adapter or the TU81 controller/server 
710 for all errors in this test. 
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4.10 TEST 10 < Functional Fault Detection Test (Internal Drive Test 1 > - 
TEST DESCRIPTION: 


This is a manuel (/sec:manual) intervention test that will execute 
the TU81 internal microdiagnostic _#1. 


TEST STEPS: yi 


BGNTEST <MANUAL> 
Print message to mount tape untensioned but loaded 
"Is the tape ready?” 
Call dup_init to write to the Ip register to force 
a hard initialize, then perform steps 1-4. Go bit set to 1 
IF the TU81 fails to enter any step 
THEN print fatal device error and drop unit 


Call DUP_EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 
IF Dup_exelocal returns SS_GETDUSTMO 
THEN print Get dust command timeout 
IF Dup_exelocal returns SS_NOTIDLE 
THEN print controller not in idle state 
IF Dup_exelocal returns SS$_TIMEOUT 
THEN print controller failed to return packet 
IF Dup_exelocal returns SS_EXEBADREF 
THEN print invalid command reference 
IF Dup_exelocal returns SS_NOTSUCCESS 
THEN print controller failed to return success in packet 
IF Dup_EXELOCAL returns SS_DUSTBADREF 
THEN print invalid command reference 
IF Dup_exelocal returns SS$_DEVINACT 
THEN print controller failed to enter active state 
IF Dup_exelocal returns SS_RECVTMO 
THEN print Controller failed to accept receive data command 
IF Dup_exelocal returns SS_PROGTMO 
THEN print progress indicator not updated before timeout 
IF Dup_exelocal returns SS_RECVINVMSG 
THEN print Receive data returned invalid message number 
IF Dup_exelocal returns SS_RECVERR2 
THEN print Receive data returned internal test failed 
and print the message buffer fault code and subcode. 
and print refer to SAMS for fault code meanings. 
IF Dup_exelocal returns SS_SAERR 
il THEN print controller error while in execute local program 
ENDTES 


DEBUG: 


If loop on error specified then loop to start of test. 
The FRU is lesi Adapter for initialize errors 
or the TU81 controller/server for all other errors. 
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4.11 TEST 11 < Tension Fault Isolation Test (Internal Drive Test 2)> - 
TEST DESCRIPTION: 


This is a Fault (/sec:Fault) intervention test that will evecute 
the TU81 internal microdiagnostic _#2. 

Internal test _¢2 ener servo faults by checking different 
assemblies of the STU 


TEST STEPS: 


BGNTEST <Fault> 
Print message “Mount a scratch tape THREADED but UNTENSIONED” 


"Is the tape ready?” 


Call dup__init to write to the Ip register to force 


a hard initialize, then perform steps 1-4. Go bit set to 1 


IF the TU81 fails to enter any step 
THEN print fatal device error and drop 
oe -EXELOCAL to execute an EXECUTE COCAL. PROGRAM command 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


IF 
ENDTEST 


DEBUG: 


If loop on error specified then loop to start of test. 


F Dup_exelocal returns SS_GETDUSTMO 

THEN print Get dust command timeout 
Dup_exelocal returns SS_NOTIDLE 

THEN print controller not in idle state 
Dup_exelocal returns SS$_TIMEOUT 

THEN print controller failed to return packet 
Dup_exelocal returns SS_EXEBADREF 

THEN print invalid command reference 
Dup_exelocal returns SS_NOTSUCCESS 

THEN print controller failed to return success in packet 
Dup_EXELOCAL returns SS_DUSTBADREF 

THEN print invalid command reference 
Dup_exelocel returns SS$_DEVINACT 

THEN print controller failed to enter active state 
Dup_exelocal returns SS_RECVTMO 

THEN print Controller failed to accept receive data command 
Dup_exelocal returns SS_PROGTMO 

THEN print progress indicator not updated before timeout 
Dup_exelocal returns SS_RECVINVMSG 

THEN print Receive data returned invalid message number 
Dup_exelocal returns SS_RECVERR2 

THEN print Receive data returned internal test failed 

and print the message buffer fault code and subcode. 
and print refer to SAMS for fault code meanings. 

Dup_exelocal returns SS_SAERR 

THEN print controller error while in execute local program 
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s 4.12 TEST 12 < Velocity Fault Isolation Test (Internal Drive Test 3)> - 
81 

820 TEST DESCRIPTION: 

821 

822 This is a Fault (/sec:Fault) intervention test that will execute 
823 the TU81 internal microdiagnostic _ 

824 Internal test _#3 isolates velocity servo faults by checking 

825 the take__up motor/tach assembly and the velocity servo 

826 loop. 

827 

828 

829 TEST STEPS: 

830 

831 BGNTEST <Fault> 

832 Print message "Remove the tape from the drive” 

833 "Is the tape REMOVED?” 

834 Call dup__init to write to the Ip register to force 

835 a hard initialize, then perform steps 1-4. Go bit set to 1 
836 IF the TU81 fails to enter any step 

837 THEN print fatal device error and drop unit 

838 Call DUP_EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 
839 IF Dup_exelocal returns SS_GETDUSTMO 

840 THEN print Get dust command timeout 

841 IF Dup_exelocal returns SS_NOTIDLE 

842 THEN print controller not in idle state 

843 IF Dup_exelocal returns SS$_TIMEOUT 

844 THEN print controller failed to return packet 

845 IF Dup_exelocal returns SS_EXEBADREF 

846 THEN print invalid command reference 

847 IF Dup_exeloceal returns SS_NOTSUCCESS 

848 THEN print controller failed to return success in packet 
849 IF Dup_EXELOCAL returns SS_DUSTBADREF 

850 THEN print invalid command reference 

851 IF Dup_exelocal returns SS$_DEVINACT 

852 THEN print controller failed to enter active state 

853 : IF Dup_exelocal returns SS_RECVTMO 

854 : THEN print Controller failed to accept receive data command 
855 IF Dup_exelocal returns SS_PROGTMO 

856 THEN print progress indicator not updated before timeout 
857 IF Dup_exelocal returns SS_RECVINVMSG 

858 THEN print Receive data returned invalid message number 
859 IF Dup_exelocal returns SS_RECVERR2 

860 THEN print Receive data returned internal test failed 
861 and print the message buffer fault code and subcode. 
862 and print refer to SAMS for fault code meanings. 
863 IF Dup_exelocal returns SS_SAERR 

864 THEN print controller error while in execute local progran 
865 ENDTEST 

866 : 

867 

868 DEBUG: 

869 

870 If loop on error specified then loop to start of test. 

871 The FRU is lesi Adapter for initialize errors 


872 or the TU81 controller/server for all other errors. 








PARAMETER CODING MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 22 SEQ 22 





de 4.13 TEST 13 < Select A Drive Resident Test (Internal Drive Tests 1-99) > - 
de TEST DESCRIPTION: 

8 

878 This section (/sec:FAULT) will ask the operator 

879 to select a drive resident microdiagnostic. The resident 

880 test will be started using the Dup Execute local program 

881 s function and monitored by Dup Get Dust status function calls. 
oe The internal tests are described in the Drive maintenance manuel. 
884 

885 TEST STEPS: 

886 

887 BGNTEST <FAULT> 

888 

889 Print message "Enter drive unit number :" 

890 IF the unit number is invalid 

891 THEN Print error ete and ask again 

892 Print message “Enter controller internal test number <1-99>:” 
893 IF the resident test name is not in the valid name table 

te THEN Print error message and ask again 

8 

896 Print message "Setup the tape drive per the Maintenance 

897 manual for this internal test 

898 READY? 

+44 Accept any response as ready 

90 

901 Call dup__init to write to the Ip register to force 

902 ea hard initialize, then perform steps 1-4. Go bit set to 1 
903 IF the TU81 fails to enter any step 

904 THEN print fatal device error and drop unit 

905 Call DUP_EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 
906 IF Dup_exelocal returns SS_GETDUSTMO 

907 THEN print Get dust command timeout 

908 IF Dup_exelocal returns SS_NOTIDLE 

909 THEN print controller not in idle state 

910 IF Dup_exelocal returns SS$_TIMEOUT 

911 THEN print controller failed to return packet 

912 IF Dup_exelocal returns SS_EXEBADREF 

913 THEN print invalid command reference 

914 IF Dup_exelocal returns SS_NOTSUCCESS 

915 THEN print controller failed to return success in packet 
916 IF Dup_EXELOCAL returns SS_DUSTBADREF 

917 THEN print invalid command reference 

918 IF Dup_exelocal returns SS$_DEVINACT 

919 THEN print controller failed to enter active state 

920 IF Dup_exelocal returns SS_RECVTMO 

921 THEN print Controller failed to accept receive data command 
922 IF Dup_exelocal returns SS_PROGTMO 

923 THEN print progress indicator not updated before timeout 
924 IF Dup_exelocal returns SS_RECVINVMSG 


925 THEN print Receive data returned invalid message number 





SS 
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927 
928 
929 IF Dup_exelocal returns SS_RECVERR2 
930 THEN print Receive data returned internal test failed 
931 and print the message buffer fault code and subcode. 
932 and print refer to SAMS for fault code meanings. 
933 IF Dup_exelocal returns SS_RECVMSG3 
a THEN print contents of receive data message buffer (not an error) 
936 IF Dup_exelocal returns SS_SAERR 
937 THEN print controller error while in execute local program 
938 ENDTEST 
939 
940 
941 DEBUG: 
942 
943 If loop on error specified then loop to start of test. 
944 The FRU is lesi Adapter for initialize errors 
945 or the TU81 controller/server for all other errors. 


946 a 


957 - TITLE PROGRAM HEADER AND TABLES 
oe -SBTTL PROGRAM HEADER 
986 000000 -ENABL ABS,AMA 
987 002000 ‘ = 2000 
988 -NLIST BEX 
990 
991 002000 BGNMOD 
992 
993 pe4 
994 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
ao ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
9 s-> 
997 
i. 002000 POINTER BGNDU,ERRTBL ,BGNRPT 
1007 
1008 002000 HEADER CZTU2,A,0,120.,0,PRIOO 
002000 LS$NAME:: ;DIAGNOSTIC NAME 
002000 103 -ASCII /C/ 
002001 132 -ASCII /Z/ 
002002 124 -ASCII /T/ 
002003 125 «ASCII /U/ 
002004 062 -ASCII /2/ 
002005 000 -BYTE 0O 
002006 000 -BYTE O 
002007 000 -BYTE 0O 
002010 LSREV:: sREVISION LEVEL 
002010 101 -ASCII /A/ 
002011 L$DEPO:: 30 
002011 060 . -ASCII /0/ 
002012 LS$UNIT:: sNUMBER OF UNITS 
002012 000000 -WORD O 
002014 L$TIML:: sLONGEST TEST TIME 
002014 000170 -WORD 120. 
002016 LS$HPCP:: sPOINTER TO H.W. QUES. 
002016 043110 -WORD LS$HARD 
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002020 LS$SPCP:: sPOINTER TO S.W. QUES. 
002020 000000 -WORD O 

002022 LS$HPTP:: :PTR. TO DEF. H.W. PTABLE 
002022 002224 -WORD LS$HW 

002024 L$SPTP:: :PTR. TO S.W. PTABLE 
002024 000000 -WORD 0 

002026 L$LADP:: ;DIAG. END ADDRESS 

002026 062130 -WORD LS$LAST 

002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD 0 

002032 L$CO:: 

002032 000000 -WORD 0 

002034 LSDTYP:: sDIAGNOSTIC TYPE 

002034 000000 -WORD 0 

002036 LSAPT:: ;APT EXPANSION 

002036 000000 -WORD 0 

002040 LSDTP:: :PTR. TO DISPATCH TABLE 
002040 002124 -WORD L$DISPATCH 

002042 L$PRIO:: s;DIAGNOSTIC RUN PRIORITY 
002042 000000 -WORD PRIOO 

002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD O 

002046 LSEXP1:: sEXPANSION WORD 

002046 000000 -WORD 0 

0C2050 LSMREV:: ;SVC REV AND EDIT # 
002050 004 -BYTE C$REVISION 

002051 000 -BYTE CSEDIT 

002052 LSEF:: ;DIAG. EVENT FLAGS 

002052 000000 -WORD O 

002054 000000 -WORD 0 

002056 L$SPC:: 

002056 000000 -WORD 0 

002060 LS$DEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 022766 -WORD LSDVTYP 

002062 LS$REPP:: :PTR. TO REPORT CODE 
002062 000000G -WORD LSRPT 

002064 LSEXP4:: 

002064 000000 -WORD O 

002066 LSEXPS:: 

002066 000000 -WORD 0 

002070 LSAUT:: sPTR. TO ADD UNIT CODE 
002070 060000 -WORD 0 

002072 L$DUT:: sPTR. TO DROP UNIT CODE 
002072 033774 -WORD LS$DU 

002074 L$LUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD O 

002076 LS$DESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 002156 -WORD LSDESC 

002100 L$LOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 

002102 LSETP:: sPOINTER TO ERRTBL 

002102 000000G -WORD LSERRTBL 

002104 LSICP:: ;PTR. TO INIT CODE 

002104 033464 -WORD LSINIT 

002106 LSCCP:: 3PTR. TO CLEAN-UP CODE 
002106 033744 -WORD LSCLEAN 

002110 LSACP:: 3;PTR. TO AUTO CODE 


— 
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002110 000000G -WORD LSAUTO 

002112 LSPRT:: sPTR. TO PROTECT TABLE 
002112 022760 -WORD LS$PROT 

002114 LS$TEST:: sTEST NUMBER 

002114 000000 -WORD 0 

002116 LSDLY:: sDELAY COUNT 

002116 000000 -WORD 0 

002120 LSHIME: : sPTR. TO HIGH MEM 
002120 000000 -WORD 0 


1009 





— 





PROGRAM HEADER AND TABLES 


DISPATCH TABLE 


1024 
1031 
1032 


1033 


000015 
034016 


103 


132 
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124 





-SBTTL OISPATCH TABLE 


se 
3 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
3° 


DISPATCH 13. 
-WORD 13 
L$DISPATCH: : 
-WORD Ti 
«WORD T2 
-WORD T3 
-WORD T4 
-WORD TS 
-WORD T6 
-WORD 17 
-WORD T8 
-WORD T9 
WORD T10 
WORD Til 
WORD Ti2 
WORD 113 
DESCRIPT <CZTU2AO TU81 FUNCTIONAL DIAGNOSTIC> 


L$DESC:: 
<a /CZTU2ZAO TU81 FUNCTIONAL DIAGNOSTIC/ 





—— 
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DEFAULT HARDWARE P-TABLE 


1043 002222 
002222 
002224 
002224 

1044 

1050 002224 

1051 002226 

1052 002230 

1053 002232 
002232 





000003 


174500 
000260 
000000 





a 


-SBTTL DEFAULT HARDWARE P-TABLE 


3e¢ 

s THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

+ THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
s IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 


BGNHW OF PTBL 
-WORD 110000-L $HW/2 


LSHW:: 

OF PTBL 
-WORD 174500 sTUIP BASE ADDRESS 
-WORD 269 ; VECTOR 
-WORD 0 sT/MSCP UNIT NUMBER 
ENDHW 

L10000 





re 
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SOFTWARE P-TABLE 
1056 -SBTTL SOFTWARE P-TABLE 
, 1057 
- 1058 pee 
' 1059 s THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
vty ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1 + 
1062 
1063 002232 BGNSW SFPTBL 
002232 000000 -WORD L10001-L$SwW/2 
002234 L$SW:: 
002234 SFPTBL:: 
1064 
1071 
1072 002234 ENDSW 
002234 L10001: 
1073 
1074 002234 ENDMOD 
1086 - TITLE GLOBAL AREAS 
1087 -SBTTL GLOBAL EQUATES SECTION 
1115 
1116 
1117 002234 BGNMOD 
1118 
1119 zee 
1120 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
1i21 ; ARE USED IN MORE THAN ONE TEST. 
1ilé22 i-- 
1123 
1124 002234 EQUALS 
’ 
; BIT DIFINITIONS 
3 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT1i1== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6+= 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
3 
001000 BIT9== BITO9 
000400 BIT8== BITOS 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BIT04 
000010 BIT3== BITO3 
000004 BIT2== BITO2 





GLOBAL AREAS 
GLOBAL EQUATES SECTION 
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000002 
000001 


000040 
000037 
00003 
000035 
000034 


000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 


000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 








a 


BITis= BITOL 
BITO== BITOO 


: 

; EVENT FLAG DEFINITIONS 
+ EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
‘ 






; ; BIT POSITION IN SECOND STATUS WORD 

EF .START== 32. + €100000) START COMMAND WAS ISSUED 

EF .RESTART== 31. s €040000) RESTART COMMAND WAS ISSUED 

EF .CONTINUE== 30. s (020000) CONTINUE COMMAND WAS ISSUED 

EF .NEW== 29. s (010000) A NEW PASS HAS BEEN STARTED 

EF .PWR== 28. ; €004000) A POWER-FAIL/POWER-UP OCCURRED 


s 
; 
; PRIORITY LEVEL DEFINITIONS 


i 

PRIO7== 340 
PRI06== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3== 140 
PRIO2== 100 


PRIO1== 40 
PRIOO== 0 

3 

sOPERATOR FLAG BITS 
; 

EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 


PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


GLOBAL AREAS 
GLOBAL EQUATES SECTION 


1129 
1130 
1131 
1132 
1133 
1134 
1135 
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000000 
000002 
000004 
000006 
000010 
000012 
000014 


000001 
000002 
000004 
000010 
000020 








FE ARAAAEREREAEAREREASARAEEAEAAEAAREAAAEAARAERERARAAAAERARERAAERELRE 
FE ARRAAAREREEAERARAEREAEAEEEEEAARERAREARAREREAEALEAEEASHRASAARARESE 


‘ 
sLUN_BLOCK OFFSETS 





3 THESE LITERALS ARE USED AS WORD OFFSETS INTO THE LUNBLK, WHICH 


; IS POINTED TO THROUGHOUT THE PROGRAM BY R4. 


3 
8 FE RRRARERAAEEERERAREAAEAEEEEEAAEEAAEEAAEAAREAEARAREAAAERAEALALALRELS 
§ ESRRAAERARAKEEAAEEARAAAERAREEARALAEAARRARASEREAEREAAAAREAALEEAESE 


TUIP ss 0 sTUIP REGISTER ADDRESS 

TUSA se 2 sTUSA REGISTER ADDRESS 

TUVEC == 4 sTU INTERRUPT VECTOR 

MSCPUN == 6 , sT/MSCP UNIT NUMBER 

TUIPSV == 10 sSAVE LOCATION FOR IP CONTENTS 
TUSASV == 12 sSAVE LOCATION FOR SA CONTENTS 
LUNFLG == 14 sBIT-SPECIFIC MEANINGS AS DEFINED 


FE REREREAEREAAARARERAAERAERARERAARAAREAAAAEEAARAEAEKAAEAEAEREAKEEKE 
£ fF ERRAREASEEAEEAERARAREAAEEAAEAEASAAREEAREEEAEERAAEEAAAKEAAALAEEE 


SLUNFLG 

i THIS WORD IN LUNBLK IS USED TO CONVEY VARIOUS INFORMATION 
: IN A BIT-SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 

; DEFINED AS FOLLOWS. 


; 
§ SR AERRARAEAEEAAREREAEAEEEEARARAREAREREAREAARAEERAAKERERALERERERE 
of RRRERAARAERERERARARAREAEAEERAEEARERAERERARARAEAAREESAALERE RE KEKAEK 


DRPFLG == BITO :=0 UUT AVAILABLE FOR TEST 

3=1 UUT HAS BEEN DROPPED 
INTFLG == BIT1 3=1 EXPECTED INTERRUPT OCCURRED 
BRFLAG == BIT2 3=1 INTERRUPT PRIORITY TEST 
TEST.9 == BITS 371 TEST 9 FLAG 
DONEFL == BIT4 3=1 INTERNAL DRIVE TEST DONE 


BELOW 





SS eA 


GLOBAL AREAS MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 29 
GLOBAL EQUATES SECTION 









1170 bi RRRRERERAEEEERAEREEE ERAS REEAEEEEEAEEEAEAARAREAERERAEEE EERE ERE 
1171 RR ARERAERAAERRAAARERE REAR EEEREEEARAEAAERREREREREREE REREAD ER EES 
1172 : 

1173 sUQ-PORT EQUATES 

1174 ; THIS SECTION DEFINES THOSE LITERALS USED 

1175 ; BY THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL. 

1176 ; IN GENERAL THEY HAVE BEEN FORMED BY USING 

1177 ; THE TWO LETTER MNEMONIC DEFINED IN UQSSP, 

1178 ; PRECEDED BY “B.” INDICATING THEY ARE BITS. 


1179 

1180 HEE Ba chachaslalachelaehehheshtte beth hth t tet ti titi titi tit itt itititT TTT TTT TT TTT 
1181 8p RRERAERARR ARERR REER RARER AEAARRERRAAARERERAEAERARAARARARRAAL 
1182 

1183 sREAD-ONLY BITS 

1184 

1185 004000 B.S1 ss BITii sSTEP 1 

1186 010000 B.S2 ss BIT12 sSTEP 2 

1187 020000 B.S3 == BIT13 sSTEP 3 

et 040000 B.S4 == BIT14 :STEP 4 

1189 

1190 100000 B.ER = BITi5 sERROR INDICATION 

1191 002000 B.NV =s BIT10 +70 VECTOR IS HOST SETTABLE 

1192 001000 B.QB as BIT9 321 SUPPORTS 22 BIT HOST BUS 

1193 000400 B.OI == BIT8 321 SUPPORTS ENHANCED DIAGNOSTICS 
1194 000200 B.OD == BIT? ;21 SUPPORTS ODD BUFFER ADDRESSES 
Sean 000100 B.MP =s BIT6 3=1 SUPPORTS ADDRESS MAPPING 

1196 

1197 ;WRITE-ONLY BITS 

1198 

1199 100000 B.PP BS BITi5 ;PERFORM PURGE AND POLL TESTS 
1200 040000 B.WR =s BIT14 sENTER DIAGNOSTIC WRAP MODE 

1201 000002 B.LF iad BIT1 sLAST FAIL REQUEST 

1202 000001 B.PI ss BITO sENABLE ADAPTER PURGE INTERRUPTS 
4 000001 B.GO ss BITO :GO BIT - START RUNNING 

1204 

1205 sREAD/WRITE BITS 

1206 

od 000200 BS. T ss BIT7 ;STEP X-TION INTERRUPT ENABLE 

120 
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1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
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000004 
000003 
000014 
177560 
177562 
177746 








a TR 







Ff RRRRERERAEREREEAEEARARAREEAEREEEAAAAEARARARAEARRREREAEKEKAAKERKA 
5 § RARER ERAERRREAERAEREEREREAERRRARAERARAEEARAAAAERAARREKEKEREKRERE 


: 
sGENERAL PURPOSE EQUATES 
a 


5 5 RR RRRAER ARERR AREA RE RE RE RRAREAEREEEAAARERARARAREAAAAREARER AREAS ERE 
5p RERRERAERE RARE REAR AARARAEAAEARAEAEAREARERRAAEARKAEARAAERRARKE 


VEC4 ss 4 sVECTOR FOUR - NXM TIMEOUTS, ETC. 
CNTRLC == 3 sCONTROL C CASCII) 


DISCAC == 14 sBIT POSITIONS 2 AND 3 DISABLE CACHE IN CCR 

RCSR ss 177560 ;TERMINAL RECEIVE CONTROL/STATUS REGISTER ADDRESS 
RBUF se 177562 ;TERMINAL RECEIVE BUFFER ADDRESS 

CCR ss 177746 ;CACHE CONTROL REGISTER ADDRESS 
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1226 bE RRRERAERERERAEEREAERREREEEARAEEREREEREEARAREARREEEEREE EER ER EEE 
1227 5 RRR RARREREREEEREREREREAEAEREEAEAEREREAE AE EE REAR EEER EERE ORES 
1228 ; 
yo sMEMORY MANAGEMENT EQUATES 
; 
1231 bf RRERERERAEAEEEEREREEAEEEEAEEREAREEAEEAEAREAREAEEREE EERE EERE ER ERS 
1232 $F RRRERAREREREAEEREREEEEEEERRAEEEEEARAREAAEAREAEEARERAEE RE EAEEEEE 
1233 
1234 177572 MMUSRO == 177572 ;STATUS REG 0 
1235 . 177574 MMUSR1 == 177574 
1236 177576 MMUSR2 == 177576 
iors 172516 MMUSR3 == 172516 ;SHOULD ONLY BE PRESENT ON 22 BIT CPU'S 
1239 172340 KPARO == 172340 ;KERNEL MODE PAGE ADDRESS REG 0 
1240 172342 KPARL == 172342 
1241 172344 KPAR2 == 172344 
1242 172346 KPARS == 172346 
1243 172350 KPAR4 == 172350 
1244 172352 KPARS == 172352 
1245 172354 KPAR6 == 172354 
4 172356 KPAR7T == 172356 ;ALWAYS FOR I/0 PAGE 
1248 172300 KPDRO == 172300 ;KERNEL MODE PAGE DESCRIPTOR REG 0 
1249 172302 KPOR1 == 172302 
1250 172304 KPOR2 == 172304 
1251 172306 KPDR3 == 172306 
1252 172310 KPOR4 == 172310 
1253 172312 KPORS == 172312 
1254 172314 KPDR6 === 172314 
it 172316 KPOR7 == 172316 
1257 000001 MMON se BITO sENABLE MMU - MMUSRO 
pend 000020 MM220N == BIT4 sENABLE 22 BIT MMU - MMUSR3 
12 
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1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 000001 
1270 000003 
1271 000005 
1272 000006 
1273 000200 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 000000 
1285 000010 
1286 000012 
1287 000014 
1288 000020 
1289 000010 
1290 000012 
1291 000017 
1292 000020 
1293 000022 
1294 000024 
1295 


en nn 
















5 RERAREAERAERAREEEAEEERERAREERAEEAERRAREAREARARAEREREES AREER ERRRARS 
5 § REREERERERERERERERRERERERARSRAEEEEAEEAAEAEARESERREEARAARAREARAE 


3 
sCOMMAND PACKET OPCODES 
; 


§ 5 RRERERERERAEREEEEERAEAAAREREREEEAERAAEARERAAEEARARARERAREARE RR RES 
5 REAR AREREREA ERAS AREER AEAARAARARAERAREARARRAEAEAREERREAREKERAEE 


OP.GDS == 01 sGET DUST STATUS OPCODE 
OP.ELP == 03 sEXECUTE LOCAL PROGRAM OPCODE 
OP.REC == 0s sRECEIVE DATA OPCODE 

OP.ABT == 06 sABORT PROGRAM OPCODE 

OP.END == 200 sEND MESSAGE FLAG OPCODE 


5p RERREAAAAREREEAE EERE ERARARAEEREEARAAEAREEAAAAEERAEERRAAEEAKAAES 
5 5 RRRREAEAAAAEEEEAAAEEEAARAAEAARERERERARAEARARAERERARKAREEAAAKAARKKA 


; 
;DUP COMMAND AND END MESSAGE OFFSETS 


‘ 
5 5 RREAREAEEEREARAREREAAAEAAARAEAAREAKRAEARAAARARERERREAEKEREARAKARAL 
5 RERERARARAREAEREAEARARERAARARAS ERARAREAAARAREAREAEARARRRAKAAAAAAKE 


P.CRF == 0 sCOMMAND REFERENCE NUMBER 
P.OPCD == 10 sCOMMAND OPCODE 

P.MOD == 12 sCOMMAND MODIFIERS 

P.BCNT == 14 sBYTE COUNT 

P.BUFF == 20 sBUFFER DESCRIPTOR 

P.ENDC == 10 sEND MESSAGE ENDCODE 

P.STS == 12 sEND MESSAGE STATUS 

P.FLGS == 17 sEND MESSAGE FLAGS 

P.IND1 == 20 +1ST WORD OF PROGRESS INDICATOR 
P.IND2 == 22 s2ND WORD OF PROGRESS INDICATOR 
P.TIMO == 24 sTIMEQUT VALUE 
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1297 3 §ERREEEAEEEARREEAERE EERE AEEREREARAREEAREARAREREREEEEEREAEEERERERE 
1298 F] § RRRREREEAEEE EEE EAEAREREAEEAAERAAEREAAAAAEEEEAEAREREREE ER EREALES 
1299 ; 
1300 ;TUSA BIT DEFINITIONS 
j 
1302 | 5 ERREREARAEERAREREEERAEARAEAEREREAREEAEREARARAEREASARERERARERERERS 
1303 5 5 RRREREREEARAEEREREEAAESRERAAEAEAAAAARRAREKEALEAEARSE kkboeheeeehenk 
1304 
1305 100000 ERR ss 100000 ERROR 
1306 004000 $1 ss 004000 ;STEP 1 
1307 000001 GO 2s 000001 ;G0 
1308 
1309 
1310 3 5 ERERAARERAEEEAARAEAARAEAAEAREAAAEEEAAARAREAARERAAEARERARERAREAEAR RAK 
1311 y a 3 5 ERERREAREAEEEAE EEE ERERARAREERAAREAAAARAARARARARARAAEARKRERERRAARAE 
1312 ; 
1313 ;U/Q PORT LITERALS 
1314 ; 
1315 F} 5 ERERERARARAREKAREA EE RARAEAEREAEARARARAAEARARAREAREREARRARARALAA 
1316 33 REREEEREAEAERAAEEAAAAAARAEAEAAAERAREAREREEEEARARKEAARAREAALARAES 
1317 
1318 100000 OWN =: 100000 ;DESCRIPTOR OWNERSHIP BIT 
1319 040000 FLAG == 040000 ;DESCRIPTOR INTERUPT FLAG BIT 
1320 000200 IMM ss 000200 ;IMMEDIATE COMMAND FLAG 
1321 000010 TF.BLK == 10 ;TAPE FORMAT 
1322 000000 HSTIMO == 0 ;HOST TIMEOUT VALUE 
1323 000000 MSCPVR == 0 ;MSCP VERSION NUMBER 
1324 000004 RNGSTP == 4, ;DESCRIPTOR RING STEP 
1325 000104 RSPSTP == 68. ;RESPONCE BUFFER STEP 
1326 
1327 
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GLOBAL EQUATES SECTION 


1337 000002 
1338 177777 
1339 177776 
1340 177774 
1341 000005 
1342 000011 
1343 000000 


— 


















§ 5 RRREEREREEEEEREREEEAAEAERABEEEAARAEEAAAAERERERERERERERERERERERA 
5 § RERREREARAEAEAEAEEEEEREREREAREAAESEREAAEARARAREREREREREREEEEARE 


3 
sTMSCP DRIVER BUFFER OFFSETS 
é 


§ i RERERERAEREEEEERAEREREEREREREAEAEEARARARAEARERARARERRERERAERERE 
5 5 RRREEAEEEAEREEAEEEEEAERAEREREAAEREEAEAARARARERERERERAERRASEARAEAERE 


HIADDR == 2. sDESCRIPTOR ADDRESS OFFSET 

CONID == “1. sCOMMAND/RESPONSE CONNECTION TYPE I.D. 

CRD se -2. sCOMMAND/RESPONSE CREDIT LIMIT OFFSET 

MSGLEN == -4. sCOMMAND/RESPONSE MESSAGE LENGTH 

TXFER === 5. sERROR FORMAT FOR “TAPE TRANSFER” ERROR LOG 
DRVER == 9. sERROR FORMAT FOR “DRIVE ERROR” ERROR LOG 
CNTER == 0. sERROR FORMAT FOR “CONTROLLER ERROR” ERROR LOG 














A enn ee ee 
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GLOBAL DATA SECTION 
1346 -SBTTL GLOBAL DATA SECTION 
1347 
1348 
1349 § i RERRRERERRREREEEAEEEAEAAERAREAAEERAREAEARAERRREREAREEEREERER EES 
1350 § SPRRRREEEEAEERAAERAREEEE EERE EARS ES EERE EES OSES EE EEEEEEED ERED ER RES 
1351 ’ 
1352 s THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
oH ; IN MORE THAN ONE TEST. 
F 
1355 js PRRREEERAESAEASAREEAAA EERE ERE EE DEED ERED ESE EE EEED ERED ER EEERERE 
1356 § S PERRAEAEEEEEREERAREEAEEAEREAAEEE EERE EADS EERE ES OE OEEEEEEREEEREES 
1357 
1358 
1359 
1360 FE RRARRREAARAREREAEAEEAS EARS EEREEEEEEEES REED EE EEEEESEEAEREEEEEEAS 
1361 § PRERAEERAREREREREE ESSE EEEEES ES REED EE ODES ES OES ERED ODED OREEEREDE 
1362 ’ 
1363 ;LUNBLK 


g 
& 


THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 


1365 : PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 
1366 F IS POINTED TO THROUGHOUT THE PROGRAM BY R4 AND INDIVIDUAL 
oH F LOCATIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 

3 
1369 § RRR ARAERAARAEEERAEREAREESEEAEASEAEAEREREEEEEEARERESEAEREE ALES 
1370 5 RRERRREED EARAEAREAEEARAEEARAREREAARARESERSAREARRREAAEARREEALAAD 
1371 
1372 002234 LUNBLK: : -BLKW 15, 
1373 
1374 
1375 § S PRRRAAEEEREAEREE EARS EEE EES OSE EEE EE OEE EEE OSE EEEEEEEEEEEES 
1376 jf PRRRERRREREEEEEE SEES EEE EE ESOS ODES ODES OEEEODEEEEEEEDEEEE EERE EES 
1377 F 
1378 ;UQ-PORT NECESSITIES 
1379 THESE TABLES ARE SET UP BY VARIOUS 


‘ 

; TESTS WITH VALUES TO BE WRITTEN TO 
1381 ; ‘ THE PORT, AND COMPARISON VALUES TO 

; CHECK THE PORT AFTER EACH STEP TRAN- 

: SITION OCCURS, RESPECTIVELY. 


1384 
1385 5 PERRREREEEEEAEEEERESEEEREREEAREAAEEAEEEEEREEAE SEEDED EEEEEREE EEE 
1386 5 PERRERREAEAERAEEAREARESEERAAASEAAEEEEEEREEEAEEEA SEEDED EEEEEEEEE 
1387 
a 002272 STPTBL: : -BLKW 4 sVALUES WRITTEN TO THE PORT 
4 002302 CMPTBL:: -BLKW 4 sCOMPARISON VALUES 

1 


ose 
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GLOBAL DATA SECTION 


1393 § MOREE EEEE SEES OES ES ED OSES OE OEES EE OEOE OOD EE EEESOEEREREEDE REEDS 
1394 PPC OPO Pr rrr rrr rrr rir iit itt ttt tt ttt 
1395 : 
1396 sPROGRAM CONTROL VARIABLES 
1397 ; THESE GLOBAL VARIABLES ARE GENERALLY USED TO CONTROL THE 
t+ ; OVERALL EXECUTION OF THE DIAGNOSTIC. 
3 
1400 § PORE EE EEE ESSE OSES ESOS ES EO OE 440400004004 000000004004000080 008 
1401 § PORE ORER SEE EEO ES EE EEDE EE 4EEE ESOS 480406 04 4000000000000040008 
1402 
1403 002312 000000 PASCNT: : -WORD 0 sCUMULATIVE PROGRAM PASS COUNTER 
1404 002314 000000 KTFLAG: : -WORD O 3*0 MEMORY MANAGEMENT NOT AVAILABLE 
1405 3*1 MEMORY MANAGEMENT IS AVAILABLE 
1406 002316 000000 TRP4FG:: -WORD 0 s*1 TRAP TO VECTOR OCCURRED 
1407 002320 000000 PAROFF : : -WORD 0 sUSED IN TEST 7 TO STEP THROUGH UPPER MEMORY 
1408 002322 000000 CMMERR: : -WORD 0 s*0 NO ERROR IN COMMUNICATION AREA 
1409 s*1 ERROR WITHIN COMMUNICATION AREA 
1410 +*-1 ERROR BEYOND BOUNDS OF COMM AREA 
1411 002324 000000 CMTBLG: : -WORD 0 3@ OF CONTIGUOUS WORDS IN ERROR IN COMM AREA 
1412 002326 000000 CMARLG: : -WORD 0 sLENGTH OF COMM AREA FOR TEST N 
1413 002330 000000 FRUIS:: -WORD 0 sPOINTER TO FAULTY FRU ASCII FOR PRINTOUT 
1414 002332 000000 LOGUNT: : -WORD 0 sLOGICAL UNIT @ OF CURRENT UUT 
1415 002334 000000 SAEXP: : -WORD 0 sLOADED WITH EXPECTED SA FOR ERROR CHECKING 
1416 002336 000000 INISTP: : WORD 0 sCURRENT STEP OF INIT SEQUENCE 
1417 002340 000000 STEPST:: WORD 0 sSUCCESS/FAIL STATUS FROM STEP SUBROUTINES 
1418 002342 000000 WRDATA: : WORD 0 sLOADED WITH DATA FRO WRAP MODE TEST 
1419 002344 000000 INNER: : WORD 0 sCOUNTER FOR PDELAY ROUTINE 
1420 002346 000000 OUTER: : WORD 0 sOTHER COUNTER FOR PDELAY 
1421 002350 000000 TOUT: : WORD 0 sTIMEOUT INDICATOR FOR PDELAY 
1422 002352 000000 TEMP: ; WORD 0 s TEMPORARY STORAGE LOCATION 
1423 002354 000000 ANSWER: : WORD 0 sLOGICAL ANSWER IN MANUAL TEST SECTION 
1424 002356 000000 PROGRL : : WORD 0 sSAVE LOCATION FOR 1ST WORD OF PROGRESS INDICATOR 
1425 002360 000000 PROGRH: : WORD 0 sSAVE LOCATION FOR 2ND WORD OF PROGRESS INDICATOR 
of 002362 000000 CPFLAG: : WORD 0 sCACHE PRESENT FLAG 


am 








~- 
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1488 

1489 002462 
1490 002464 
1491 002465 
1492 002466 
1493 002472 
1494 002476 
1495 
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GLOBAL DATA SECTION 





FP SAHRESKEAEEKEKEREAEKAASEEEKEEKEDESEAEEEEEKEEAEEEEKEEEEEEEEDEEES 


5 
sABORT COMMAND PACKET 


3 
FF PHAKAKSSSAERAASSARAEAFEEAREAREEASKEAREAEEDEEEDEEEEEDAEEEEEED EES 


ABORT: 


sPACKET LENGTH IN BYTES 

sMSGTYP = 1 (DATAGRAM); CREDITS = 0 
sCONNECTION ID = 2 (DUP) 

sCOMMAND REFERENCE NUMBER = 4 


sOPCODE = 6 CABORT) 
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GLOBAL DATA SECTION 
1497 FF POSES ASES SAAS KEKE SEES ALASSEESESEASHESESHEREEEREREEEERERERESSE 
1498 3 F PSSHSEAAAK ERAS EHEEEAEEEEEAALASEKAS EKER ER ESEREKREAEREEEEEEEEEE EEE 
1499 ; 
foes sCLASS DRIVER BUFFERS 
1501 3 
1502 FF PSSAARKEEHEASEEEKEEESSEKESEEAEAEKEEEKEEEEEKEREEEEEEEEEEEEEEEREESE 
1503 EE eee deh tbh brett ttt Lit Ti tii itititititititTittTittt | 
1504 
1505 002502 RESPBF :: -BLKW 2, sTOP 4 LOCATIONS OF RESPONSE BUFFER 
toes 002506 RSPBUF : : -BLKW 66. sDRIVER RESPONSE BUFFER 
1508 
1509 FF POSREAEEEEEAEAEEEAKEEEAEEAAA EEE AKEKEKALERERERELERERERERERERE 
1510 FF PESHOAAAEEAESAASESESEKEKEKEAEAEEEEEE ASSAD EAE EKALEREDEEEEDERES 
1511 8 
ry 3U/Q PORT DESCRIPTOR RINGS 
1 8 
1514 $F POSREAEKAKEESEASEKEESEAEKESAEASAKEKEAAEEAEEEEKEDEEEREREREREREESE 
1515 oF SSSSEAREAASESEESEEAEEAEEHAEAEASESEAEAEEEEEEEEEEEEEEEADSDS CERERES 
1516 
1517 002712 DSCRNG:: -BLKW 2. sDESCRIPTOR RING 
1518 002716 RSPEND: : sEND OF RESPONSE BUFFER 
1519 002716 RSPRNG:: -BLKW 4, sRESPONSE DESCRIPTOR RING 
1520 002726 CMORNG: : -BLKW 4. s;COMMAND DESCRIPTOR RING 
cons 0C2736 OSCENO:: sEND OF DESCRIPTOR RING 
1523 
1524 $F PSOSSEAKEAAE SEES ASEEEKESEAAKEREEEKEREEASEREKRERESREEEREALAREREEEDE 
1525 fF SSSSSAAKSKASEKASEEEASSEASASEHAKEKEKASEAREEEEEEAAEEEEEEEERAREEERE 
1526 3 
4 ;CLASS AND PORT DRIVER VARIABLES 
1 F 
1529 5 F PERSOKAAEASESEEEEASSAEAEASASREAAEEEASDREAREAEASALE ESSERE ARALEREDE 
1530 5 F PHASES EKEEEKEEESEASRESESAEESSREESA SEEK SEEREREAEEAEREEEAERE LEEDS 
1531 
1532 002736 000000 CNTHI:: -WORD O sVALVE OF THE HIGH TIMEOUT 
1533 002740 000000 CNTFLG:: -WORD 0 sCONY/ROLLER FLAGS 
1534 002742 000000 PCKSIZ:: -WORD O sPACKET STZE IN BYTES 
1535 002744 000000 CMDREF : : -WORD O sCOMMAND REFERENCE NUMBER 
1536 002746 000000 CMDCNT:: WORD 0 ;COMMAND COUNTY 
1537 002750 WRBUF : ; -BLKW 4096. sWRITE BUFFER 
1538 022750 000000 CMDSAV:: -WORD O sCOMMAND DESCRIPTOR SAVE 
fae 022752 000000 RSPSAV:: -WORD O sRESPONSE DESCRIPTOR SAVE 
1 
1541 
1542 SF PSEAEEEAAKEKASESEKESEASESEAEAEKAEAEEEEEEEEES EEE EEREEEDERERERERS 
1543 5 FSS SASHA EKEEESESEEEAEESEEEEESEEAAAEEEAEEEEALEREAELESERELEREREDE 
1544 ; 
ios sMANUAL INTERVENTION INPUT DATA TABLE 
1546 ; 
1547 fF FSSAEEEAEKEEEESEHEAAEASASAKALASAAEAKEAEALAEEAREREREEEREREREEDESD 
1548 $f PSREAAEAEEEASEKEEEEAEASEASAEAEEASEAAAEKES NE SEEKESEEDEERAREREDEEE 
1249 
1550 022754 MANTBL: : -BLKB 3 :TWO BYTES OF INPUT, 3RD BYTE ZERO 
1551 -EVEN 
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GLOBAL DATA SECTION 


1553 


1564 022760 

022760 
1565 022760 
1566 022762 
1567 022764 


000000 
177777 
177777 








SC A EE RE ee 





FF POAAASAHAKEAESEEEEEAEAAAAAEEAKEK AKA ERASERS EEEESEREEEHEREEEEEE 
FF POREAEASASEAEAEEAEEESHEAEAESAKERESESEAAESEAEAEEEAEEARERAEEEREESE 


; 
sPROTECTION TABLE 


é 
FF SOSSAAAAEAASEEERERESEEEEASAEAEAKEAEEAREEASERAREAKEEEEEEEEEREEEES 


FF PORESEAEAAEKAKAEEAEEESAE HARARE AAAERAEEARAREAEAEREREEEEEREREEEESE 


BGNPROT 

L$PROT:: 
-WORD 0 
-WORD -1 
-WORD -1 

ENDPROT 


= 
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1572 
1576 


022766 
022766 
022766 
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124 


125 








070 





-SBTTL GLOBAL TEXT SECTION 
iF RERREAERAAEREA EERE EREREEEEEARAAREERRAREARAEREREE ERE EERE ERED ERS 
FS PRRERREREEEAARERRERRARERAREAAERAERERAAEREAAEERAERERERERREEEEEES 


; 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 


: 
5 FERRER RAERAREAEEEAREAEREEEAAAAREAAEREAAARAERAREAAEARAERARKEARAERARA 
5 RARER AAERARAEREEAEEREERRAEARERAAAAAREAREREARAEARAARERARAEAR ARREARS 


PARE RRERERERAEEEAREREREEEEREEARE EERE EAAEAAARERAR REAR EK ERE EE EES 

; NAMES OF DEVICES SUPPORTED BY PROGRAM 

| pA RRNRNRARNRRRaNiNRNEnE es NneRbEnebenNntbniennens 
DEVTYP <TU81> 


L$DVTYP:: 
-ASCIZ sTU81# 
-EVEN 
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022774 
023030 
023110 
023140 
023203 
023260 
023323 


023350 


023414 
023436 
023500 
023520 
023543 
023627 
023653 
023706 
023734 
023755 
023775 
024026 
024047 
024066 


024140 
024161 
024212 
024233 
024271 
024316 
024344 
024405 
024454 
024503 
024532 
024567 
024637 
024701 
024743 
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FE RRAEERERARAEEEEERERAAEEEERAREEEAEAAAAREREAEE REAR EEE EERE EE EES 
; - 

sFORMAT STATEMENTS 

Gl 

jE RRREREEREAERARAEEREAREREEEREREAEAAEAEEEREREAAEAE AREA ERAS EERE EES 


111 LINE1:: .ASCIZ ?#AINIT SEQUENCE STEP #: #D1? 
045 LINE2:: .ASCIZ ?sSNSASA REG: 068A EXPCTD: 068A ACTUAL SA: #067 
045 LINE3:: .ASCIZ ?sNSAIP REG ADDRESS: #067 
062 LINE4:: .ASCIZ ?8N2SAseeeFAILING FRU: STSAaeeassNSN? 
122 LINES:: .ASCIZ ?#ARELOCATION CONSTANT: SO068A VIRT. ADD: #06? 
045 LINE6:: .ASCIZ ?SNSAEXPECTED: S068A RECEIVED: #06? 
120 LINE7:: iy ?SAPHYSICAL ADD: #067 
-EV 


045 WR1:: yong ?SNSASA REG: 068A SA CONTENTS: #06? 


062 PKSENT::.ASCIZ ?s8N2s#APACKET SENT: ? 

045 CREFNO::.ASCIZ ?sNSACOMMAND REFERENCE NUMBER: #06? 

045 OPCODE::.ASCIZ ?sNSAOPCODE: #03? 

045 MODIFY::.ASCIZ ?sNSAMODIFIERS: #06? 

045 PRGNAM::.ASCIZ ?8NSAPROGRAM NAME: S038A S038A SO3SA S03KA KO3KA 6037 
045 BYTCNT::.ASCIZ ?sNSABYTE COUNT: #06? 

045 BUFDES::.ASCIZ ?sNSABUFFER DESCRIPTOR: #06? 

062 PKRECV::.ASCIZ ?sN2sAPACKET RECEIVED: ? 

045 ENCODE::.ASCIZ ?NSAENDCODE: #037 

045 STATUS::.ASCIZ ?NSASTATUS: #06? 

045 PRGVER::.ASCIZ ?sNSAPROGRAM VERSION: #06? 

045 TIMOUT::.ASCIZ ?sNSATIMEOUT: #03? 

045 FLAGS:: .ASCIZ ?sNSAFLAGS: #03? 

045 endian ~ ?SNSAFAULT CODE: SUB-FAULT CODE: ? 


£5 RERAAEAAERAAAEREAEREAERAEEEARERAKAAARAREEAAREAREAREARERAREAAEEERE 


; 
sERROR MESSAGES 


. 
§ fe SRAAERAAEEAKEEAERAAAEREAEARAEAERERAAAREAERAREAAREAAEASARERAKE AE EEE 


115 EMSGS:: .ASCIZ ?NXM ON READ TUIP? 

111 EMSG6:: .ASCIZ ?TUIP NOT O ON FIRST READ? 

115 EMSG7:: .ASCIZ ?NXM ON READ TUSA? 

040 EMSG8:: .ASCIZ ?SA REG IN ERROR ON FIRST READ? 

040 EMSG9:: .ASCIZ ?SA CONTENTS IN ERROR? 

040 EMSG10::.ASCIZ ?SA WRONG IN DATA WRAP? 

120 EMSGi11::.ASCIZ ?EXPECTED INTERRUPT DID NOT OCCUR? 

124 EMSG1i2::.ASCIZ ?INTRRPT OCCURRED WITH CPU PRIORITY = 7? 
040 EMSG13::.ASCIZ ?SA NOT O IN PURGE/POLL? 

122 €MSG14::.ASCIZ ?PURGE/POLL TEST FAILED? 

124 EMSG15::.ASCIZ ?EXTENDED ADDRESS TEST FAILED? 

130 EMSG16::.ASCIZ ?”EXECUTE LOCAL PROGRAM” COMMAND TIMEOUT? 
105 EMSG17::.ASCIZ ?”GET DUST STATUS” COMMAND TIMEOUT? 

105 €MSG18::.ASCIZ ?”GET DUST STATUS” COMMAND FAILURE? 

130 EMSG19::.ASCIZ ?”EXECUTE LOCAL PROGRAM” COMMAND FAILURE? 
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1659 
1660 


025013 
025052 
025104 
025135 
025215 


025250 
025302 
025323 
025351 
025375 
025452 
025534 


025632 
025647 
025670 
025716 


025724 
026032 
026057 
026134 
026221 
026324 
026430 
026536 
026646 
026716 
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114 
103 
114 
104 


105 
117 
105 
122 





105 EMSG20:: 
117 EMSG21:: 
124 EMSG22:: 
126 EMSG23:: 
124 EMSG24:: 


115 WRERI:: 
122 WRER2:: 
123 WRER3:: 
122 WRER4:: 
103 WRERS:: 
045 WRERG:: 
045 WRER7:: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


Page 42-1 


?"RECEIVE DATA” COMMAND FAILURE? 
?ABORT COMMANDS DON’T WORK? 
?INTERNAL DRIVE TEST HUNG? 
?INVALID MESSAGE NUMBER FROM INTERNAL DRIVE TEST? 
?INTERNAL DRIVE TEST FAILED? 





?7TIME OUT DURING PORT INIT? 

?PORT INIT FAILED? 

?7TMSCP COMMAND FAILURE? 

?PORT DETECTED ERROR? 

?INCORRECT COMMAND REFERENCE NUMBER RECEIVED.? 

?SNSAREFER TO PATHFINDER FOR EXPLANATION OF CODES. ? 
?SNSARECEIVED INVALID MESSAGE NUMBER FROM INTERNAL DRIVE TEST. ? 


§ fe SRREAEKEAEEAEERAERAAAARARERARARAREERARERARARAREREREARASARALEREAL 


; 
sMISCELLANEOUS ERROR MESSAGES 


‘ 
5 5 RRAAERRSREAEAAEAERERAEAEAEAERREAEAARAARAEREAEEAREAEARAREKKARAEEE 


123 LESI:: 
116 CTRL:: 
123 LSCT:: 
111 ORVE:: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


?LESI ADAPTER? 
?CONTROLLER/CABLE? 
?LESI/CONTROLLER/CABLE ? 
?DRIVE? 


55 RRREREAAEEAAERAREEAAEARAAKAKAARERAEREARERARRAAEEAREAAEREAAKEKEKEK 


5 
sMANUAL TEST MESSAGES 


5 f RRAAEKAAAEREAAAAAEEEEEAAEAAAARARAREAAREEARAREARAREREEEEARERAKKKEE 


045 T10OMS1::.ASCIZ 
062 T1OMS2::.ASCIZ 
045 T10MS3::.ASCIZ 
045 T10MS4::.ASCIZ 
045 T11MS1::.ASCIZ 
045 T12MS1::.ASCIZ 
045 T13MS1::.ASCIZ 
062 MMSG:: -ASCIZ 
164 SELTST:: .ASCIZ 
040 QUESTN: : .ASCIZ 
-EVEN 


\SNSATest 10: FUNCTIONAL FAULT DETECTION TEST (Drive Resident Test #1)\ 
\SN28Aee% CAUTION #&4\ 

\SNSAThis test will destroy the data on tape.\ 

\SNSAMount a scratch tape UNTENSIONED but THREADED.#sN\ 

\SNSATest 11: TENSION FAULT ISOLATION TEST (Drive Resident Test #2)\ 
\SNSATest 12: VELOCITY FAULT ISOLATION TEST (Drive Resident Test #3)\ 
\SNSATest 13: SELECT A DRIVE RESIDENT TEST (Drive Resident Tests 1-99)\ 
\SN2sAae% REFER TO PATHFINDER FOR TEST REQUIREMENTS BEFORE PROCEDING *#««\ 
\Enter drive resident test number (1-99)\ 

\Is the drive ready (To bypass this test hit return)\ 
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1705 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1723 
1724 
1725 
1726 
1727 


1728 
1729 
1730 


1731 
1732 
1733 
1734 


1735 
1736 
1737 
1738 


1739 
1740 


027002 


027002 
027002 
027002 
027006 
027012 
027016 
027020 
027022 


027026 
027026 
027026 
027032 
027036 
027042 
027046 
027052 
027054 
027056 
027062 


027066 
027066 
027066 
027070 
027074 
027100 
027102 
027104 
027110 


027114 
027114 
027114 
027116 
027122 
027126 
027132 
027134 
027136 


027142 
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-SBTTL GLOBAL ERROR REPORT SECTION 
5 PRAREEEREEEA EERE EEAEEA SEERA REREAEEEAEEREAEREAREAE RS EEAEEEERERE 
5 RRRRERERREAAEEAE EERE ER EREREAEAEAEAEE SEAR EREREAEEEE EERE REARS REESE 


; 

sGLOBAL ERROR REPORTS 
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB 
; AND PRINTX CALLS THAT ARE USED IN MORE THAN ONE TEST. 
; IT ALSO INCLUDES THE ASCII MESSAGES THAT ARE USED BY 
: THE PRINTB AND PRINTX CALLS. 


3 
5 5 RRERERAEREREEERERER AEA EAEAEARAERAEEAAEAAAAAARAAAEAAARERERAREREREAS 
5 ERERERERAR AREER ERAEAEEEEAEAERERAAERAERARAAAREAEAAEAEAKEREARKE ERASE 


BGNMSG 
PRIINI:: 
PRINTX #LINE1,INISTP 
013746 002336 MOV INISTP, -(SP) 
012746 022774 MOV #LINE1,-(SP) 
012746 000002 MOV #2,-(SP) 
010600 MOV SP ,RO 
104415 TRAP C$PNTX 
062706 000006 ADD #6 ,SP 
PRISA:: 
PRINTX #LINE2,TUSACR4), SAEXP, TUSASV(R4) 
016446 000012 MOV TUSASV(R4),-CSP) 
013746 002334 MOV SAEXP, -( SP) 
016446 000002 MOV TUSACR4),-CSP) 
012746 023030 MOV #LINE2,-CSP) 
012746 000004 MOV #4,-(SP) 
010600 MOV SP ,RO 
104415 TRAP C$PNTX 
062706 000012 ADD #12, SP 
000137 030624 JMP FRUERR 
PRIPAD:: 
PRINTX #LINE7,R2 
010246 MOV R2,-C(SP) 
012746 023323 MOV #LINE7,-(CSP) 
012746 000002 MOV #2,-(SP) 
010600 MOV SP ,RO 
104415 TRAP CS$PNTX 
062706 000006 ADD #6 ,SP 
000137 027142 JMP PRIDAT 
PRIVAD:: 
PRINTX #LINES,KPAR3,R2 
010246 MOV R2,-C(SP) 
013746 172346 MOV KPAR3, -( SP) 
012746 023203 MOV #LINES ,-(SP) 
012746 000003 MOV #3,-C(SP) 
010600 MOV SP ,RO 
104415 TRAP CS$PNTX 
062706 000010 ADD #10,SP 
PRIDAT:: 
















GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


1741 


1742 
1743 
1744 

745 


1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 


1754 
1755 
1756 


1757 
1758 
1759 
1760 


1761 


027142 
027142 
027144 
027146 
027152 
027156 
627160 
027162 
027166 


027172 
027172 
027172 
027176 
027202 
027206 
027210 
027212 
027216 


027222 
027222 


027226 
027226 
027226 
027232 
027236 
027242 
027244 
027246 


027252 
027252 
027252 
027256 
027262 
027266 
027272 
027274 
027276 
027302 


027306 
027306 
027306 
027312 
027316 
027320 
027322 
027326 
027326 
027330 
027334 
027340 
027342 
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013746 
012746 
012746 
010600 
104415 
062706 


016446 
016446 
012746 
012746 
010600 
104415 
062706 
000137 


012746 
012746 
010600 
104414 
062706 


011546 
012746 
012746 
010600 
104414 


023260 
000003 


000010 
030624 


000000 
023110 
000002 


000006 
030624 


030624 


002336 


022774 
000002 


000006 


000012 
000002 
023350 
000003 


000010 
030624 


023414 
000901 


000004 


023436 
000002 





PRIIP:: 


PRIERR:: 


WRINTO:: 


WRPRTE:: 


ELPERR: : 


PRINTX 
V 


JMP 


PRINTX 


MOV 


MOV 


Page 43-1 


@LINEG ,R1,(R2) 
(R2),-CSP) 


@LINES , TUIPCR4 ) 
TUIP(R4),-C(SP) 
#LINES, -C(SP) 
#2, -(SP) 


#LINE1,INISTP 
INISTP, -(SP) 
#LINE1, -CSP) 
#2,-CSP) 

SP ,RO 

C$PNTX 

#6 ,SP 


@WR1, TUSACR4), TUSASV(R4) 
TUSASV(R4), -(SP) 


TUSACR4),-CSP) 
@WR1, - CSP) 
#3,-CSP) 

SP ,RO 

C$PNTX 

#10, SP 

FRUERR 


#PKSENT 
#PKSENT , -( SP) 





SEQ 47 


sCOMMAND/RESPONSE PACKET PRINTOUT 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


1762 


1763 


1764 


1765 


1766 


1767 


1768 


027576 
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062706 


005046 
156516 
012746 
012746 
010600 
104414 
062706 


016546 
012746 
012746 
010600 
104414 
062706 


005046 
156516 
005046 
156516 
005046 
156516 
005046 
156516 
005046 
156516 
005046 
156516 
012746 
012746 
010600 
104414 
062706 


012746 
012746 
010600 
104414 
062706 


011346 
012746 
012746 
010600 
104414 
062706 


005046 
156316 
012746 
012746 
010600 
104414 
062706 


016346 


000006 


000010 
023500 
000002 
000006 
000012 


023520 
000002 


000006 


000021 
000020 
000017 
000016 
000015 
000014 
023543 
000007 
000020 
023706 
000001 
000004 


023436 
000002 


000006 


000010 
023734 
000002 
000006 


000012 





ADD #6 , SP 
PRINTB #0PCODE,<B,10(R5)> 
CLR (SP) 


BISB 10(R5), (SP) 
MOV #OPCODE, -( SP) 
MOV #2,-C(SP) 

MOV SP ,RO 

TRAP C$PNTB 

ADD #6 ,SP 

PRINTB #MODIFY,12(R5) 
MOV 12(RS),-CSP) 
MOV @MODIFY, -CSP) 
MOV #2,-CSP) 


MOV SP ,RO 
TRAP C$PNTB 

ADD #6 ,SP 

es ERE M. <B.14CRS)>, <B,15(RS)>, <B,16(R5)>, <B,17(R5)>, <B,20(RS)>, <B,21(R5)> 
BISB 21(0R5),(CSP) 

CLR - ) 

BISB 20(R5),(SP) 

CLR -(SP) 

BISB 17(R5),CSP) 

CLR -(SP) 

BISB 16(R5),CSP) 

CLR -(SP) 

BISB 15(R5),CSP) 

CLR -(SP) 


BISB 14(R5),(SP) 
MOV #PRGNAM, -( SP) 
MOV #7,-CSP) 

MOV SP ,RO 

TRAP C$PNTB 

ADD #20, SP 

PRINTB #PKRECV 

MOV #PKRECV, -C SP) 
MOV #1,-CSP) 


MOV SP ,RO 
TRAP C$PNTB 
ADD #4 ,SP 


PRINTB #CREFNO,(R3). 
MOV CR3),-CSP) 
MOV #CREFNO, -( SP) 
MOV #2,-(SP) 


MOV SP ,RO 
TRAP C$PNTB 
ADD #6 ,SP 
PRINTB #ENCODE,<B,10(R3)> 
CLR -(SP) 


BISB 10(R3),(SP) 
MOV #ENCODE, -( SP) 
MOV #2,-C(SP) 


MOV SP ,RO 
TRAP C$PNTB 
ADD #6 ,SP 


PRINTB #STATUS, 12(R3) 
MOV 12(R3),-(SP) 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


—— 


1769 


1770 


1771 


1772 
1773 
1774 
1775 


1776 


1777 


i) 
1778 


027602 
027606 
027612 
027614 
027616 
027622 
027622 
027626 
027632 
027636 
027640 
027642 
027646 
027646 
027650 
027654 
027660 
027664 
027666 
027670 
027674 
027674 
027676 
027702 
027706 
027712 
027714 
027716 
027722 


027726 
027726 
027726 
027732 
027736 
027740 
027742 
027746 
027746 
027750 
027754 
027760 
027762 
027764 
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012746 
012746 


023755 
000002 
000006 
000014 


023775 
000002 


000006 


000015 
024026 
000002 


000006 


000016 
024047 
000002 


000006 
030624 


023414 
000001 


000004 


023436 
000002 


000006 


000010 
023500 
000002 


000006 
000012 


023520 
000002 





RCVERR:: 
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#STATUS, -CSP) 
#2 ,-(SP) 


@PRGVER, 14(R3) 
14(R3),-CSP) 
@PRGVER, -(SP) 
#2,-(SP) 


#TIMOUT, <B,15(R3)> 
-(SP) 

15(R3),CSP) 
#TIMOUT, -CSP) 
#2,-(SP) 

SP ,RO 

C$PNTB 

#6 ,SP 

@F LAGS ,<B, 16(R3)> 
-(SP) 

16(R3),C SP) 

@F LAGS , -(SP) 
Pal 


#PKSENT 
@PKSENT, -( SP) 
#1,-C(SP) 

SP ,RO 

C$PNTB 

#4,SP 
@CREFNO, (RS) 
(R5),-CSP) 


#6 ,SP 
@OPCODE, <B,10(RS)> 
(SP) 


10(R5),(SP) 
@OPCODE, -(SP) 
#2,-C(SP) 


@MODIFY,12(R5) 
12(R5),-CSP) 
@MODIFY,-CSP) 
#2,-(SP) 

SP ,RO 





sCOMMAND/RESPONSE PACKET PRINTOUT 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


— 


0 
1779 


1780 


1781 


1782 


1783 


1784 


1785 


1786 
1787 
1788 
1789 


030252 


030256 
030256 
030256 
030262 
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104414 
062706 


016546 
012746 
012746 
010600 
104414 
062706 


016546 
012746 
012746 
010600 
104414 
062706 


012746 
012746 
010600 
104414 
062706 


011346 
012746 
012746 
010600 
104414 
062706 


005046 
156316 
012746 
012746 
010600 
104414 
062706 


016346 
012746 
012746 
010600 
104414 
062706 


016346 
012746 
012746 
010600 
104414 
062706 
000137 


012746 
012746 


000006 
000014 
023627 
000002 
000006 
000020 
023653 
000002 
000006 
023706 
000001 
000004 


023436 
000002 


000006 


000010 
023734 
000002 


000006 
000012 
023755 
000002 
000006 
000014 


023627 
000002 


000006 
030624 


023414 
000001 





GDSERR:: 


C$PNTB 

#6 ,SP 

#BYTCNT, 14(R5) 
14(R5),-CSP) 
@BYTCNT, -CSP) 
#2,-(SP) 

SP 


#BUFDES, 20(R5) 
20(RS),-CSP) 


@PKRECV, -( SP) 
#1,-(SP) 

SP ,RO 

C$PNTB 

#4,SP 
@CREFNO, CR3) 
(R3),-CSP) 


#6 ,SP 

#ENCODE ,<B,10(R3)> 
-(SP) 

10(R3), CSP) 
#ENCODE, -( SP) 

#2, -(SP) 

SP ,RO 

C$PNTB 


#6 ,SP 
@STATUS, 12(R3) 
12(R3),-C(SP) 


#6, 
@BYTCNT,14(R3) 
14(R3),-CSP) 


* @BYTCNT, -CSP) 


#2,-(SP) 
SP 


OPKSENT 
@PKSENT, -( SP) 
#1,-(SP) 





SEQ 50 


sCOMMAND/RESPONSE PACKET PRINTOUT 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


om 


1790 


1791 


1792 


0 
1793 
0 


1794 


0 
1795 


1796 
0 


1797 


030266 
030270 
030272 
030276 
030276 
030300 
030304 
030310 
030312 
030314 
030320 
030320 
030322 
030326 
030332 
030336 
030340 


030514 
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010600 
104414 
062706 


011546 


000004 


023436 
000002 


000006 


000010 
023500 
000002 
000006 
000012 
023520 
000002 
000006 
023706 
000001 
000004 


023436 
000002 


000006 


000010 
023734 
000002 


000006 
000012 


023755 
000002 


000006 


000017 
024047 
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SP ,RO 
CSPNTB 

@4,SP 
@CREFNO, (RS) 
(RS) ,-CSP) 


#6, 
@OPCODE, <B, 10(RS)> 
-(SP) 


10(R5), CSP) 
@OPCODE, -( SP) 
#2, -(SP) 

SP ,RO 

C$PNTB 

#6 ,SP 

@MODIFY, 12(RS) 


#4,SP 
@CREFNO, (R3) 
(R3),-CSP) 


#6 ,SP 
ENCODE, <B, 10(R3)> 
SP) 


-¢ 
10(R3), (SP) 
et Wein 


6 ,SP 

@STATUS, 12(R3) 
12(R3),-CSP) 
@STATUS, -( SP) 
#2, -(SP) 

SP 


%6, 
FLAGS ,<B,17(R3)> 
-(SP) 
17(R3),CSP) 
@FLAGS, -(SP) 








SEQ 51 





GLOBAL AREAS MACRO YOS.02 Thursdey 25-Jul-85 16:53 Page 43-6 SEQ 52 
GLOBAL ERROR REPORT SECTION 


030520 012746 000002 MOV #2 ,-CSP) 
030524 010600 MOV SP ,,RO 
030526 104414 TRAP C$PNTB 
030530 062706 000006 ADD #6 ,SP 

pte 030534 000137 030624 FRUERR 

1800 030540 INTMSG: : 

1801 030540 PRINTB @F AULT 
030540 012746 024066 @F AULTC, -CSP) 
030544 012746 000001 MOV #1,-CSP) 
030550 010600 MOV SP ,RO 
030552 104414 TRAP C$PNTB 
030554 062706 000004 AOD 04,SP 

1802 030560 PRINTB @WRER6 
030560 012746 025452 MOV @WRERG , - (SP) 
030564 012746 000001 MOV 1,-(S 
030570 010600 MOV SP ,RO 
030572 104414 TRAP CSPNTB 
030574 062706 000004 ADD #4 ,SP 

ios 030600 000137 030624 JMP FRUERR 

1805 030604 INVMSG: : 

1806 030604 PRINTB @WRER7 
030604 012746 025534 MOV @WRER7 , -(SP) 
030610 012746 000001 MOV #1,-CSP) 
030614 010600 MOV SP ,RO 
030616 104414 TRAP C$PNTB 
030620 062706 000004 ADD 04,SP 

1807 

1808 

1809 030624 FRUERR: : 

1810 030624 PRINTB #LINE4,FRUIS 
030624 013746 002330 MOV FRUIS, -CSP) 
030630 012746 023140 MOV @LINES , -(SP) 
030634 012746 000002 MOV #2,-(SP) 
030640 010600 MOV »RO 
030642 104414 TRAP C$PNTB 

sone 030644 062706 000006 ADD #6 ,SP 

1812 030650 PRIEX: EXIT MSG 
030650 000167 -WORD J$JMP 

0013 030652 000000 -WORD 1L10003-2-. 

1814 030654 NOMSG 
030654 L10003: 

a 030654 104423 TRAP C$MSG 


- 





ew 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


030656 
030656 


030656 
030662 


030662 
030662 
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005237 002316 


000002 


-SBTTL GLOBAL SUBROUTINES SECTION 


FF PSASASSAHKSKAKAK SASK AAKEASHEAKSKEKAKESEEKSEEESEKEKEKEREEEEOEEEE 
FF SOHRSKSKSEHASEK ESSE AHAKASAREAHESASEEAEKASHEESESAEEAKASEHESEEEEEEEE 


; 
sGLOBAL SUBROUTINES SECTION 


; THIS SECTION CONTAINS ALL SUBROUTINES AND 
; INTERRUPT SERVICE ROUTINES THAT ARE AC- 
; CESSED FROM ANYWHERE IN THE PROGRAM. 


é 
$F SSRHSAHSASAAESSEEA SEAS ESSE AEASESEAASALEASHEHAKEKEEEAEAEEEEEEEEE 
3 SPSHSHESHESASASHESEKASESEAAKEAAAKAKAKARKEEASKASEAAAEEKAEEAEREEEEE 


FF SSSAASSKASSASSEAASSHKESASEASAKEKESEAKAKESAEKSEKREKEKEEESELEEEAEEE 
FF SSSROSSSAEKSASEEESASESKEKSSASAEAKAKEAEAKASASHSKESAKAEELELERELEESE 


; 

s TRAPS 

THE ADDRESS OF THIS ROUTINE IS LOADED 
INTO VECTOR 4 WHENEVER THE PROGRAM IS 
ATTEMPTING TO ACCESS A PIECE OF HARDWARE 
FOR THE FIRST TIME. IT IS INTENDED TO 
CATCH NON-EXISTENT MEMORY TIMEOUTS IN 

THE EVENT THE HAROWARE IS NOT REALLY PRE- 
SENT OR IS MALFUNCTIONING. IT SIMPLY 
SETS A FLAG, INDICATING THE TRAP OCCURRED. 


3 
FF SSSOSHEKSKEEHESSSESKSKASASSASHEESKEKESARAEAKEAEAEKESAKESEALEEEEE 
FF SSSSESEKSKEAEKASEAEAESSASASASSSASEAKRSASAEAKRSSSASESSARAEAEEEKREEEEE 


BGNSRV TRAP4 


TRAP4:: 
INC TRP4FG ;SET THE FLAG - TRAP OCCURRED 
ENDSRV 

L10004: 
RTI 





SEQ 53 








sess 
SEQ 54 
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GLOBAL SUBROUTINES SECTION 


IF BRFLAG IS SET, 


sIF NOT PRIORITY LEVEL TESTING 
; THEN SKIP AROUND 
; ao SET FAILED BIT 


SET THE FLAG 


1863 
1864 
1865 FF PORAOEEEASEEEKEEESEREREEESEEEEEREEEDEDESESEEEEEDEDEREEEEEEEEEES 
1866 5 50000 060006060600666606600606000000060004000606060606060000080006 
1867 : 
1868 sINTRCV 
1869 3 THIS IS THE TU81 INTERRUPT HANDLER USED BY THE PRO- 
1870 3 GRAM WHEN INTERRUPTS HAVE BEEN ENABLED. IF THE 
1871 3 BRFALG IS CLEAR, THE ROUTINE SETS A FLAG INDICATING 
187 3 THE EXPECTED INTERRUPT OCCURRED. 
1873 3 IT INDICATES THAT PROCESOR PRIORITY WAS SET TO A 
1874 ; LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 
ak ; THE ROUTINE SETS AN ERROR INDICATOR. 
3 

1877 FPPSORERESEAEAAEEEEAEEAESESEDOREEEEHERAS EEE EEEREKEDDEEEEEEEEREES 
1878 5 § 06000006 6000060660 0606060000060000000000640000800000000000000068 
1879 
1883 030664 BGNSRV INTRCV 

030664 INTRCV:: 
1884 
1885 3 BIT @BRFLAG, LUNFLG(R4) 
1886 ; BEQ S$ 
1887 3 MOV SORPFLG,LUNFLG(R4) 
eee 3 BR EXTINT sRETUR 
ot 030664 052764 000002 000014 Ss: BIS @INTFLG,_LUNFLG(R4) 

1 

1692 030672 EXTINT: 
1893 030672 ENDSRV 

030672 L10005: 

030672 000002 RTI 
1894 











GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


030674 
030674 


030674 
7 


030702 
030702 
030702 





RR AR RR SEES 
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052764 000001 000014 


000002 


FF PROREEKAAE SEES EEEEEAEEEAEAEAEEEESEEAEAAEEAHAAEEREEEAAEDEEEEEEEE 
FF PSSHSSAKHEEAEAAEEEAREAEAEAEAAAEASSEAESEEHAAKEREEEEEAEEERERERELSE 


F 
;ILLINT 

; THIS HANDLER ROUTINE’S ADDRESS IS LOADED INTO THE 
8 CURRENT UUT‘S VECTOR FOR ALL TESTS THAT DO NOT EN- 
F ABLE DEVICE INTERRUPTS. 


‘ 
oF PSSRAEEAAKASEEEEAAESEEAKEAAAEEKSKASEKAREKESEASALELESAREREEERERESSE 
5 FSSA ERAASAREEAEEEEEEEEHAEASEEAEAEAEAEKEEEEAREREAERALEREREEEREESE 


BGNSRV ILLINT 
ILLINT:: 


BIS @DRPFLG,LUNFLG(R4) 


ENDSRV 
RTI 


L10006 


SEQ 55 





eS A 
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GLOBAL SUBROUTINES SECTION 














1925 
1926 5 f PRRREERAEAAR AEE AEEREASAEAEEAAEREAEAERERAEAAEAEEAREREAARERARERSE 
1927 F} § RERAERAREREAAEAEEREEEREAARAREASAAEEEAEEEREAEAEEAEEREEAAAEREALES 
1928 3 
1929 3CHKCAC 
1930 ; THIS ROUTINE IS USED IN THE DATA WRAP TEST TO CHECK IF 
1931 3 CACHE MEMORY IS PRESENT AND ENABLED ON THE SYSTEM BEING 
1932 F TESTED. IF SO, CACHE IS DISABLED BEFORE PROCEEDING 
oes : TO PREVENT THE TEST FROM INCORRECTLY REPORTING AN ERROR. 
1935 3 § RERRERERERASEEAEEEAEAARAAEAEEEREEAEEEAAAAEAEAAEEARASEAREAAREEAREE 
1936 F} § SERA EAEEEEAAERAREEAAEEEARAERERAAEAARAAAEAAAEAAAARAEAKAKERRAKERE 
1940 
1941 030704 CHKCAC:: 
1942 030704 SETVEC #VEC4,@TRAP4,#PRIO7 ;SET UP FOR POSSIBLE ILLEGAL INT 
030704 012746 000000G MOV #PRIO7,-(SP) 
030710 012746 030656 MOV @TRAP4,-(SP) 
030714 012746 000004 MOV #VEC4, -( SP) 
030720 012746 000003 MOV #3,-(SP) 
030724 104437 TRAP C$SVEC 
030726 062706 000010 ADD #10,SP 
1943 030732 005037 002362 CLR CPFLAG ;CLEAR “CACHE PRESENT” FLAG 
1944 030736 005737 177746 TST CCR sREAD CACHE CONTROL REGISTER 
1945 020742 005737 002316 TST TRP4FG sCACHE PRESENT ? 
1946 030746 001005 BNE 10$ 3NO, BRANCH 
1947 030750 052737 000014 177746 BIS #DISCAC,CCR sDISABLE CACHE 
1948 030756 005237 002362 INC CPFLAG ;SET “CACHE PRESENT” FLAG 
1949 030762 10$: CLRVEC #VEC4 sRESTORE VECTOR 
030762 012700 000004 MOV #VEC4,RO 
030766 104436 TRAP CS$CVEC 
1950 030770 005037 002316 CLR TRP4FG sMORE HOUSEKEEPING 
He 030774 000207 RTS PC 
1952 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1976 
1977 


1978 
1979 
1980 
1981 
1982 
1983 
1984 


1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 


030776 
039776 
030776 
031002 
031006 
031012 
031016 
031020 
031024 
021030 
031030 
031034 
031036 
031042 
031044 
031050 
031052 
031056 


031060 
031064 
031066 


031072 
031076 
031076 
031102 
031104 
031110 
031112 
031116 
031120 
031124 


031126 
031132 
031134 
031140 


031142 


031146 
031146 





012746 
012746 
012746 
012746 
104437 
062706 
005737 


012727 


005737 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 


005737 
001005 
005237 
000402 


005037 


012700 


000340 
030656 
000004 
000003 


000010 
177572 


000001 
002116 
177772 
177756 


002316 
002314 
172516 
000001 
002116 
177772 
177756 


002316 
002314 


002314 


000004 





nn mn ce 
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5 RRREEAAEAERAEREREREEEEEAEEERERAAERAAERAAAAAAAEAAAREREREEERER ERE 
HE Bd achechehahteeeehdehh hth tobi Lit LE Li titi ti tititititi ttt tT TT ttt tT 


F 
sKTTEST 


THIS SUBROUTINE IS USED BY THE INIT CODE TO 
DETERMINE IF THE MEMORY MANAGEMENT UNIT IS 
PRESENT. IF SO, IT RETURNS A FLAG IN THE 
SET STATE. OTHERWISE THE FALG IS CLEAR IN 
WHICH CASE TEST SEVEN IS BYPASSED. 


5 RRRRAREREREEEREREREREEAARAEAEARRAEAREAAERARAEAEAEAAAEARARERAEEES 
5 RERREREEAEAEEREAARREEERERAEAARAEREARAERARAAEARAERKAAAEAAAAREARERRE 


KTTEST:: 


SETVEC #VEC4,@TRAP4,#PRIO7 


#PRIO7,-C(SP) 


sSET UP FOR POSSIBLE NXM 


MOV @TRAP4,-(SP) 

MOV @VEC4, -( SP) 

MOV #3,-(SP) 

TRAP C$SVEC 

ADD #10,SP 

TST MMUSRO sARE YOU THERE, MMU? 

DELAY 1 sGIVE NXM TIMEOUT A CHANCE 
MOV #1,(PC)+ 

-WORD 0 

MOV L$DLY,(PC)+ 

-WORD 0 

DEC -6(PC) 

BNE 7-4 

DEC -22(PC) 

BNE .-20 

TST TRP4FG IF NXM OCCURRED 

BNE NOKT ; THEN NO MMU IS PRESENT 
INC KTFLAG ; ELSE SAY WE FOUND 18 BIT SO FAR 
TST MMUSR3 sNOW LOOK FOR 22 BIT MAPPING 
DELAY 1 sGIVE NXM A CHANCE 

-WORD 0 

MOV L$DLY,(PC)+ 

-WORD O 

DEC -6(PC) 

BNE 7-4 

DEC -22(PC) 

BNE .-20 

TST TRP4FG sIF NXM OCCURRED 

BNE KTEXT ; THEN 18 BIT IS ALL WE'VE GOT 
INC KTFLAG + ELSE SAY WE'VE GOT 22 BIT 
BR KTEXT H AND BRANCH AROUND NEXT 
CLR KTFLAG sNO MMU - CLEAR FLAG 

CLRVEC #VEC4 sRESTORE VECTOR 

MOV #VEC4,RO 


_—— 
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GLOBAL SUBROUTINES SECTION 





031152 104436 TRAP CsCvEC 
1994 031154 005037 002316 CLR TRP4FG sMORE HOUSEKEEPING 
1995 031160 000207 RTS PC 
1996 
1997 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2023 
2024 
2025 


031162 
031162 
031162 
031166 
031172 
031176 
031202 
021204 


031210 





012746 
012746 
016446 
012746 
104437 
062706 


000207 





Se a RS REE ED 
MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 49 






§ § ERAREREEEEAEEAEREAEEAAERAREAAARAERARERERERAREALALEERELERAEES EEE 
$s RRRAAEEEEEREEAEEAEREAAEEAEREARARERARERAAREERERELEARARERAAEREEAE 


F 
sRSTVEC 

; THIS ROUTINE IS CALLED FROM VARIOUS PLACES 

; IN THE PROGRAM TO SET THE UUT'S INTERRUPT 

F VECTOR WITH THE ADDRESS OF A HANDLER ROUTINE 
3 WHICH WILL CATCH ILLEGAL DEVICE INTERRUPTS, 
3 SPECIFICALLY "ILLINT”. INTERRUPT PRIORITY 

3 IS SET TO O. 


5p REAR ARAREREEEEEREAAAREAERALRAAAAAREARAAEAEERAREEEAEAKARERARAREAS 
5 5 RERAARERAEREAEERAAERAREEAAEAARAARRARERARAAARAREREKERALARARAEAEES 


RSTVEC:: 
SETVEC TUVECCR4), #ILLINT, #PRIOO 
MOV #PRIOO, -(SP) 
MOV #ILLINT, -(SP) 
MOV TUVECCR4), -C SP) 
MOV #3,-CSP) 
TRAP CsSVEC 
ADD #10, SP 


RTS PC 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2057 
2058 
2059 


031212 
031212 
031220 
031222 
031222 
031226 


031232 


031236 
031242 
031244 
031250 


031252 
031252 
031256 
031262 
031266 
031272 
031274 


031300 





032764 
001014 


012746 
012746 
016446 
012746 
104437 
062706 
000413 


012746 
012746 
016446 
012746 
104437 
062706 


000207 





000004 000014 


000000 
030664 
000004 
000003 


000010 


000340 
030664 
000004 
006003 


000010 


SS 
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5 § FRRAEAEEAEEEESEEAEAEERARERAEEARAEAERAAEAAAREREARERERALEREREREES 
5 § SREREREEEEEEEEEEREREAREREEEREEREREREAEAAAEARAREARSRERERSAAREREDSE 


é 
sVECTOR 


THIS ROUTINE IS CALLED FROM VARIOUS PLACES 

IN THE PROGRAM TO SET THE UUT’S VECTOR WITH 
THE ADDRESS OF A HANDLER ROUTINE WHEN DEVICE 
INTERRUPTS HAVE BEEN ENABLED. THE ROUTINE HAS 
TWO MODES OF OPERATION: WHEN BRFLAG IS CLEAR, 
PROCESSOR PRIORITY IS SET TO ZERO, ALLOWING 
DEVICE INTERRUPTS. IF BRFLAG IS SET, PRIORITY 
IS SET TO 7. IF AN INTERRUPT OCCURS IN THIS 
CASE, AN ERROR IS RETURNED BY THE HANDLER 
ROUTINE, “INTRCV". 


§ § RRRRERREAEEE ERA RARER RRAEREAAEEAREERERAEAEEAAAAAAREREEERASS RARE L 
5 5 FERRER AEAAERAARE EERE EEARAAREEAEEAEARARAREAAEAKEAREEAKRARALEREL A 


VECTOR:: 


5$: 


EXTVEC: 


BIT co ee SS sIF FLAG IS SET 


; THEN SKIP TO SECOND HALF 
SETVEC TUVEC(R4), #INTRCV, #PRICO sELSE LOW PRIORITY 
MOV #PRIOO, -(SP) 
MOV @INTRCV, -C SP) 
MOV TUVECCR4), -C SP) 
MOV #3 ,-(SP) 
TRAP C$SVEC 
ADD #10, SP 
BR EXTVEC sRETURN 


SETVEC TUVEC(R4), @INTRCV, #PRIO7 sHIGH PRIORITY 
MOV #PRIO7, -CSP) 
MOV @INTRCV, -CSP) 
MOV TUVECCR4), -C SP) 
MOV #3,-(SP) 

TRAP C$SVEC 

ADD #10,SP 


RTS PC 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


031302 
031302 
031306 
031312 
031314 
031320 
031322 
031326 
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005037 
005337 
001373 
005337 
001002 
005237 
000207 


002350 
002344 


002346 
002350 








5 5 RRRAEREAAAEERSREEEAEEAEAREEARARERAAAREREEARARESEAEAEEEEERERDEARES 
Ff ERERERERERAREEAREREREREAAREREAAAEEEAAEARAAAESEAEAREEEREREEERERE 


; 
sPDELAY 


=e os @s ee os Gs os oe oe os 


THiS ROUTINE IS USED THROUGHOUT THE PROGRAM TO PROVIDE 

A VARIABLE AMOUNT OF DELAY TIME. THE DELAY WILL BE 
INSTRUCTION EXECUTION TIME DEPENDENT. TWO VALUES MUST 

BE LOADED BY MAINLINE CODE PRIOR TO CALLING PDELAY: 

“INNER” AND “OUTER”. IF SUFFICIENT CALLS TO PDELAY ARE 
MADE SUCH THAT THE OUTER COUNT IS EXHAUSTED, THE ROUTINE 
RETURNS “TOUT” EQUAL TO 1, INDICATING TIMEOUT HAS OCCURRED. 
“INNER” SHOULD BE RE-LOADED BY MAINLINE CODE, PRIOR TO 
CALL TO PDELAY WITHIN A TIMING LOOP. 


5 SRRAEAAEAEEEEEEEEEREAERAAEAAEAAEAERAREAAARAEAREREREAKAA KERR ARS 
5 5 REREEAEAEREREREEREEARERARAAEAEEEEAEAEREARARARAREREAREARERARARARAL 


PDELAY:: 


PDOLYEX: 


CLR TOUT sCLEAR TIMEOUT INDICATOR 
DEC INNER sIF COUNT NOT EXHAUSTED 
BNE PDELAY ;__ THEN KEEP LOOPING 
DEC OUTER sIF MAJOR COUNT NOT 0 
BNE POLYEX ; THEN LEAVE WITH STATUS = OK 
fe = s ELSE SET TIMEOUT 
Ss 
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GLOBAL SUBROUTINES SECTION 


2126 031330 
2127 031330 
2128 0231334 
2129 031342 
031346 
031350 
031354 
031356 
031362 
031364 
031370 
2130 031372 
2131 031400 


2134 031406 
2135 031410 
2136 031416 
2138 031420 


2140 031424 


002340 
000000 
000001 
002116 
177772 
177756 


000002 
004600 


002272 


002340 





000000 


000012 
000012 


000002 





§ § SRERAEASARARERE SEES ESAS SEAEAEEEARASASALAREEESEAEREEEEEDEAEEEEEEE 
§ § RRARAREEEERERE SEES EEEAEEERAAAREAESAEAAEAREREASERALERELALERERELE 


; 
sSTEPL 


THIS SUBROUTINE IS RESPONSIBLE FOR PERFORMING 
STEP 1 OF THE UQ-PORT INIT SEQUENCE. SPECIFI- 
CALLY, IT WILL INITIALIZE THE UUT BY WRITING 
TO ITS IP REGISTER. AFTER A BRIEF DELAY, IT 
WILL READ THE SA REGISTER TO INSURE THAT THE 
STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR. 
IT WILL THEN WRITE THE FIRST LOCATION OF THE 
STEP TABLE (SET UP BY MAINLINE CODE) TO THE 
UUT'S SA REG. IF ALL STEPS COMPLETE SUCCESS- 
FULLY THE ROUTINE RETURNS “STEPST” CLEARED; 
OTHERWISE “STEPST” IS RETURNED INDICATING A 
FAILURE OCCURRED. 


fp RRARAAEAEEEREREREEEARARERERAREEEAREEAARRAEEAEAERARERASEAEAAS ERE 
§ EREAAAAEEREEEEAEAEAAEEREAEEARAAREERAREAAAAEERAREAREREREALEAEEEKERE 


STEP1i:: 


STP1LER: INC 
STP1EX: RTS 


STEPST sCLEAR THE STATUS INDICATOR 
#0 ,@TUIPCR4) sINIT THE UUT 
#1,0PC)+ 


0 
ates 


TUSACR4), TUSASVCR4) ;GET THE SA REG CONTENTS 
#8 .S1!B.D0I!B.0D, TUSASV(R4) 


sIF ALL THE RIGHT BITS AREN'T SET 
STP1ER s THEN TAKE ERROR EXIT 


STPTBL,@TUSACR4); ELSE WRITE HOST’S STEP 1 RESPONSE 


STP1EX ; AND LEAVE SHOWING SUCCESS 
STEPST sSET ERROR INDICATOR 
PC 
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GLOBAL SUBROUTINES SECTION 


2160 031426 
2161 031426 


2163 031432 
2164 031436 
2165 031440 
2166 031444 
2167 031450 
2168 031452 


2170 031454 


012702 


012703 
006303 
063703 
012722 
005303 
001374 


000207 


060000 
000024 


002326 
177777 








5 5 RSRREAERAEAEEEEESEEAEAEEAESEEERESEAAAEARALREALEEEEEEEEEEEREREDERE 
5 § RERREAEEEEEEESEDEEEEEE ESD EDEDEEDEEEEEEEEEES ES OEESEEEEEDEEEERERES 


F 
sBAKPAT 

3 THIS SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 
3 ALL 1'S DATA PATTERN. THE LENGTH OF THE AREA IN USE 
$ BY THE CURRENT TEST IS CONTAINED IN “CMARLG’. 


‘ 
§ § RSRREAEAEREEEEERERERAEEREEAEAEAEAEAEAEASAAEARERESREAEEEEEREREEEES 
5 § RHRREAREAEAEEAEEEEEEAAAEAREREREALEAEEAARASEALEASAALARALRSELALLS 


BAKPAT:: 


MOV @COMMBF , R2 oo, OF COMM AREA 
t= 
MOV #20. ,R3 sBUFFER LENGTH IN FRONT OF AREA 
ASL R3 sMULTIPLIED BY 2 
ADD CMARLG ,R3 sADD COMM AREA LENGTH USED 
1$: MOV #-1,(R2)+ sWRITE THE DATA 
DEC R3 sIF NOT DONE YET 


BNE i$ s THEN DO IT AGAIN 
RTS PC 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


031456 
031456 
031462 
031466 
031472 
031474 
031476 
031500 


031502 
931504 
031510 
031512 
031514 
031516 


031520 
031524 
031530 
031532 
031534 
031536 
031540 


031542 
031546 
031554 
031562 
031564 
031564 
031566 
031570 
031572 
031574 


031576 
031576 
031600 
031602 
031604 


031606 
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012701 
012703 
020122 
001003 
005303 
001374 
000425 


162702 
012737 
022737 
001405 


104455 
000001 
024503 
027066 
000404 


104455 
000002 
024532 
027114 





177777 
060000 
000022 


002326 


177777 
000024 


000002 
025632 002330 
000010 002114 






§ 5 SOO46466 60006666 0466004460664 00046040066 0460040660600004000 00400048 
§ § S888 6466 06666604 06664646 64660640 4466660006 00000000040060080000684% 


8 
;CHKCOM 


CHKCOM: : 


1$: 


S$: 


10$: 


15%: 


20%: 


25%: 


THIS ROUTINE IS CALLED BY TESTS DOING THE PURGE/POLL 
IT IS USED TO VERIFY THAT THE PORT LEFT THE 


CHECK. 
COMMUNICATIONS AREA CLEARED. 


ADDITIONALLY, IT CHECKS 


THE 20 WORDS PRECEDING AND SUCCEEDING THE COMM AREA 
TO MAKE SURE THE PORT DION‘'T GO OUTSIDE THE COMM AREA. 


§ 5 SEOEEEEE EEE ESOS OOEE OSES OS OEEE EE OEEEEEEEEEEEDEEEEREDREREERELEE 
§ § OES 64 6444460446 46646646464 6464666464446 046 0460646046446 40446446 6440444004844 


#20. ,R3 
R1,CR2)+ 
15$ 

R3 

10$ 
CKCMEX 


#2 ,R2 
#LESI,FRUIS 
#8.,L$TEST 

208 

1,EMSG14 ,PRIPAD 
CSERDF 


1 

EMSG14 

PRIPAD 

25% 

2,EMSG15 ,PRIVAD 
eed 

EMSG15 

PRIVAD 


LOGUNT 


sTEST DATA 

sSTARTING ADDRESS 

sFIRST COUNT 

sIF NOT ALL 1‘S 

s__ THEN GO REPORT ERROR 
sIF NOT ALL DONE 

s THEN GO CHECK ANOTHER 


sTEST DATA FOR PRINTOUT 

sSET UP COUNTER FOR COMM AREA 
sIF NOT O 

s__ THEN GO REPORT ERROR 

sIF NOT ALL DONE 

; THEN GO CHECK ANOTHER 


sTEST DATA FOR PRINTOUT 

sSET UP COUNTER FOR POST COMM AREA 
sIF NOT ALL 1'S 

s__THEN GO REPORT ERROR 

sIF NOT ALL DONE 

+ THEN GO CHECK ANOTHER 

s ELSE RETURN 


sADJUST ADDRESS FOR PRINTOUT 
sLOAD FAILING FRU 

sIF IN TEST 8 

s THEN DO ALTERNATE PRINTOUT 
:"PURGE/POLL TEST FAILED” 


sCOMMON EXIT 
“EXTENDED ADDRESS TEST FAILED” 





a Smee 
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GLOBAL SUBROUTINES SECTION 


031606 013700 002332 MOV LOGUNT ,RO 
ones 031612 104451 TRAP CsD00uU 
4 031614 000207 CKCMEX: RTS PC 


-— 








2235 
2236 
2237 
2238 
2239 
2240 


2258 
2259 
2260 
2261 
2 


GLOBAL AREAS 


031616 
031616 
031622 
031626 


031630 
031632 
031636 
031642 
031646 


0316506 
031654 
031662 
031670 
031672 
031700 


031706 
031714 


031716 
031716 
031722 
031726 
031732 
031736 
031744 
031746 
031750 
031752 
031756 
031760 
031766 
031766 
031770 





icine Ene mmeieemre e ————e 
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GLOBAL SUBROUTINES SECTION 


012703 
012702 
005001 


010122 
012723 
062701 
022701 
001370 


010137 
012737 
032737 
001406 
012737 
012737 


012737 
000207 


010174 
012703 
012701 
005037 
012737 
005002 
005202 
001016 
005337 
001013 
017464 


104455 
000063 


172300 
172340 


077406 
000200 
002000 


172346 
007600 
000002 


177600 
000020 


000001 


172356 
002314 


172356 
172516 


177572 


002736 


000012 


FF PSSAOKASKESESEAESEASEAEKESEAAESAEREKEEEEEEHEEEDAEEEREEEEESOEREEE 
EE beta tt tert ItLTILi Titi titititititititiTiT TTT Tt 


3 
3s INTMMU 


INTMMU: : 


18: 


2s: 


PRTINT:: 


LOOP: 
ILOOP;: 


THIS SUBROUTINE IS CALLED FROM TEST 8 TO INITIALIZE 
MEMORY MANAGEMENT REGISTERS. 
ARE SET UP TO MAP VIRTUAL ADDRESSES INTO THE LOWEST 
KPAR7 IS SET UP TO MAP TO 
THE PAR REGISTER THAT CORRESPONDS TO 
THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
UP TO POINT TO THE SECOND 32K OF PHYSICAL MEMORY. 

ALL POR‘S ARE INITIALIZED TO THE SAME VALUE; NAMELY, 
UPWARD EXPANDABLE, READ/WRITE ACCESS ENABLED, AND THE 
FULL 8KBYTE PAGE IS ACCESSIBLE. 


5 F SOSSSHESAEREHSEEKESEESSEEEEEEEEEASEEEEEKEEEEEEEEEREEEEEE EERE REEDS 
heehee PLE LLL itt titi titi ti titi ttt tT TTT TTT 


32K OF PHYSICAL MEMORY. 
THE I/0 PAGE. 


@KPDRO,R3 
@KPARO ,R2 
Ri 


R1,(R2)> 
77406 ,(R3)+ 


R1,KPAR3 

#7600, KPAR7 

eer ae 
$ 


#177600, KPAR7 
@MM220N,MMUSR3 


OMMON, MMUSRO 
PC 


R1,ATUIP(R4) 
@INTTBL,R3 
@S1,R1 
INISTP 

624. ,CNTHI 

R 


OT USACR4 ), TUSASV(R4) 
51.,WRER1,WRINTO 


CSERDF 
51 


ALL PAR'S EXCEPT ONE 


sSTART OF PDR ADDRESS RANGE 
sSTART OF PAR ADDRESS RANGE 
sSTARTING RELOCATION VALUE 


sLOAD RELOCATION VALUE 
POR 


sLOAD 


sADJUST RELOCATION VALUE 
sIF NOT AT THE END 
; THEN DO ANOTHER ONE 


; ELSE SET THIS REG TO NEXT 32K 


318 BIT I/0 PAGE 


sIF 22-BIT BUS NOT AVAILABLE 

; THEN GO TURN MMU ON 

s ESE 5:1 22 BIT I/O PAGE 
AW ENABLE 22 BIT MAPPING 


sTURN ON THE WHOLE THING 


sINITIALIZE THE DRIVE 

sPUT THE TABLE ADDRESS INTO R3 
sSET UP TO BEGIN AT STEP 1 
sCLEAR THE STEP TRACKER 

sSET UP THE TIME OUT COUNTER 


sCLEAR R2 


sINCREMENT HI TIME OUT VALUE ? 


sIF NOT, BRANCH 


sELSE, DECREMENT LO TIMEOUT 

sBRANCH IF NO TIME OUT 

sSAVE THE SA FOR THE ERROR PRINTOUT 
sPRINT PORT INIT FAILURE 


Ce 
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GLOBAL SUBROUTINES SECTION 


031772 
031774 
2293 031776 


2320 032140 
2321 032142 
2322 032144 
2323 032146 





025250 . WORD 
027226 . WORD 
DODU 
013700 002332 MOV 
104451 TRAP 
000454 BR 
037401 000002 2s: BIT 
001755 BEQ 
032774 100000 000002 BIT 
001413 BEQ 
017464 000002 000012 MOV 
ERROF 
104455 TRAP 
000064 - WORD 
025302 - WORD 
027252 . WORD 
DODU 
013700 002332 MOV 
104451 TRAP 
000432 BR 
005237 002336 38: INC 
012374 000002 MOV 
006301 ASL 
100324 BPL 
012702 002716 MOV 
012703 002506 MOV 
010322 5$: MOV 
012722 100000 MOV 
062703 000104 ADD 
022703 002716 CMP 
001370 BNE 
012737 002716 022752 MOV 
012737 002726 022750 MOV 
005037 002744 CLR 
000207 100$: RTS 
sINIT DATA TABLE 
104400 INTTBL: . 
002716 
000000 
900001 


_—_—— rr ES 


Page 55-1 


WRER1 

WRINTO 
LOGUNT 
LOGUNT ,RO 
Cs000u 

1003 
— 


LOOP 
anes 
$ 


@TUSACR4 ), TUSASV(R4) 
S2.,WRER2, WRPRTE 
CSERDF 

52 


INISTP 
alee ciesan ie 
1 


LOOP 
ORSPRNG,R2 
ORSPBUF RS 
R3,CR2)+ 
GOWN, CR2)+ 
ORSPSTP,R3 
oo 
$ 


ORSPRNG ,RSPSAV 
@CMDRNG, CMDSAV 
CMDREF 

PC 


sDROP THE UNIT 


sEXIT ROUTINE 
sTEST FOR STEP BIT FROM ORIVE 
sLOOP UNTIL SOMETHING SETS 
sCHECK FOR ERROR 

sNO ERROR, KEEP GOING 

sSAVE THE SA CONTENTS 

sPRINT ERROR 


DROP THE UNIT 


sEXIT ROUTINE 
sINCREMENT THE STEP TRACKER 

sWRITE WORD FROM TABLE TO CONTROLLER 
sSHIFT TO NEXT STEP 

sIF NOT AT LAST STEP LOOP 

sPUT THE RESPONSE DESCRIPTOR ADD IN R2 
sPUT THE RESPONSE BUFFER ADDRESS IN R3 
sPUT THE BUFF ADD IN THE DESCRIPTOR 
sSET THE DESCRIPTOR TO THE CONTROLLER 
sSTEP TO THE NEXT BUFFER SLOT 

sARE WE AT THE END OF THE BUFFER ? 
sNO, KEEP GOING 

sSET UP TO USE FIRST RESPONSE BUFFER 
sSET UP TO USE FIRST COMMAND BUFFER 
sSET THE COMMAND REFERENCE # TO 0 
sRETURN 
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2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 


032150 
032154 
032160 
032164 
032172 
032176 
032204 
037206 
032212 
032216 
032224 
032226 
032232 
032236 
032240 
032244 
032252 
032254 
032256 
032260 
032262 
032264 
032270 
022274 
032302 
032304 
032312 
032314 
032316 
032322 
032326 
032332 
032334 
032340 
032344 
032344 
032346 


032350 
032350 
032354 
032362 
032364 
032370 
032372 
032376 
032404 
032406 
032412 
032420 
032422 
032426 
032430 
032434 
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104422 
000207 


004737 
032764 
001034 
020527 
001431 
004737 
032764 
001023 
004737 
032764 
001015 
022705 
001012 
004737 
032764 


000014 
002356 
002360 
025647 
031716 
000001 


002410 
032350 
000001 


002436 
032350 


000024 
000200 


002370 
032350 
000001 
000020 
177562 
000200 
000003 


002466 
032350 


032456 
000001 


002436 


032556 
000001 


033042 
000001 


002436 


033326 
000001 





002330 
000014 


000014 


177560 


000014 
000014 


000014 


000014 


000014 


000014 


ORVTST: 


10$: 
30$: 


50$: 
40$: 


100$: 


CLSDRV:: 
1$; 


CLR 
LR 


LUNFLG(R4) 
PROGRL 


PROGRH 

@CTRL,FRUIS 

PC ,PRTINT 
@ORPFLG,LUNFLG(R4) 
100$ 

E€XELOC,RS 

PC ,CLSDRV 
@ORPFLG,LUNFLG(R4) 
100$ 

@RCVDAT,RS 
es 


@GDUST ,RS 

PC ,CLSDRV 
@DRPFLG,LUNFLG(R4) 
100$ 

@DONEFL ,LUNFLG(R4) 
100$ 


10$ 

RBUF RS 
*BIT7,RS 
@CNTRLC,RS 
30$ 

@ABORT ,RS 
PC, ,CLSDRV 


C$BRK 
PC 


PC ,PRTDRV 
#DRPFLG,LUNFLG(R4) 
100$ 

RS, @RCVDAT 

100$ 


PC ,CORECV 
#DRPFLG,LUNFLG(R4) 
100$ 

PC ,CHKRSP 

#ORPFLG, LUNFLG(R4) 
100$ 

#RCVDAT,RS 

100$ 


PC ,CHKMSG 
#DRPFLG,LUNFLG(R4) 


sCLEAR ALL FLAGS 


sCLEAR LOW WORD OF PROGRESS INDICATOR 






SEQ 68 


sCLEAR HIGH WORD OF PROGRESS INDICATOR 


sDEFAULT FRU IS CONTROLLER 
sGO DO A PORT INIT 

sIS THE ORIVE AVAILABLE 
sNO, BRANCH TO EXIT 


sSET UP FOR “EXECUTE LOCAL PROGRAM” 


sGO ISSUE THE COMMAND 

sIS THE DRIVE AVAILABLE 
sNO, BRANCH TO EXIT 

sSET UP FOR “RECEIVE DATA” 
sGO ISSUE THE COMMAND 
sCLEAR LOW DELAY COUNTER 
sSET UP HIGH DELAY COUNTER 
s“CONTROL C” INPUT ? 

YES, BRANCH 


sDELAY BETWEEN “GET DUST STATUS” COMMANDS 


sSET UP FOR “GET DUST STATUS” 
3GO ISSUE THE COMMAND 

sIS THE ORIVE AVAILABLE 

sNO, BRANCH TO EXIT 

sINTERNAL TEST DONE ? 

;YES, BRANCH TO EXIT 

;LO0P 

;GET DATA INPUT FROM KEYBOARD 
:STRIP PARITY 

;"CONTROL C” INPUT ? 

3NO, BRANCH 

:SET UP FOR “ABORT” 

:GO ISSUE THE COMMAND 


sRETURN 


:GO SEND THE COMMAND 
sIS THE DRIVE AVAILABLE 
sGET OUT IF NOT AVAILABLE 


;"RECEIVE DATA” COMMAND JUST ISSUED ? 


YES, BRANCH TO EXIT 


sGO CHECK FOR ANY NEW RESPONSES 


sIS THE DRIVE AVAILABLE 
sGET OUT IF NOT AVAILABLE 


sGO CHECK CONTENTS OF RESPONSE 


sIS THE DRIVE AVAILABLE 
sGET OUT IF NOT AVAILABLE 


sWAS IT A “RECEIVE DATA” COMMAND ? 


sNO, BRANCH TO EXIT 


sGO CHECK MESSAGE FROM INTERNAL TEST 


sIS THE DRIVE AVAILABLE 
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2381 032442 
2382 032444 
2383 %%2450 
2384 «2454 


2389 032456 
2390 032456 
2391 032462 
2392 032464 
2393 032472 
2394 032476 
2395 032502 
2396 032504 
2397 032512 

032512 

032514 

032516 

032520 
2398 032522 

032522 

022526 
2399 032530 
2400 032532 
2401 032536 
2402 032542 
2403 032544 
2404 032550 
2405 032554 


2410 032556 
2411 032556 
2412 032562 
2413 032570 
2414 032572 
2415 032600 
2416 032602 
2417 032604 
2418 032612 
2419 032614 
2420 032620 
2421 032622 
2422 032626 
2423 032634 
2424 032636 
2425 032644 
2426 032650 
2427 032654 
2428 032656 
2429 032662 
2430 032666 
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GLOBAL SUBROUTINES SECTION 


001004 
012705 
004737 
000207 


013701 
010511 
012761 
005774 
005774 
001413 
017464 


104455 
000065 
025351 
027252 


013700 
104451 
000411 
062701 
022701 
001002 
012701 
010137 
000207 


004737 
032764 
001036 
032764 
001016 
011103 
026365 
001411 
022705 
001022 
012705 
026365 
001014 
012761 
062701 
022701 
001002 
012701 
010137 
000207 


002370 
032556 


022750 
100000 
000000 
000002 


000002 


002332 
000004 
002736 


002726 
022750 


032670 
000001 


000020 


000000 
002370 


002436 
000000 


100000 
000004 
002726 


002716 
022752 





000002 


000012 


000014 
000014 


000000 


000000 
000002 


100$: 


PRTDRV:: 


10$: 


15$: 
100$: 


CDRECV:: 


i$: 


10$: 


15$: 
100$: 


100$ 
#GDUST RS 
PC ,CORECV 
PC 


CMDSAV,R1 
RS,CR1) 

@OWN ,HIADDR(R1 ) 
@TUIPCR4) 
STUSACR4 ) 

10$ 

SBTUSACR4), TUSASV(R4) 
53. ,WRER4, WRPRTE 
CSEROF 

53 

WRER4 

WRPRTE 

LOGUNT 

LOGUNT ,RO 
C$D0DU 

100$ 

@RNGSTP,R1 
#DSCEND,R1 

15$ 

@CMDRNG,R! 
R1,CMDSAV 

PC 


PC ,PORECV 
#ORPFLG, LUNFLG(R4) 


100$ 
105 »LUNFLG(R4) 
10$ 


(R1).R 
P-CRFCRS),P.CRFCRS) 


#RCVDAT,RS 
P.CRFCR3),P.CRFCRS) 
100$ 

#OWN ,HIADDR(R1) 
#RNGSTP,R1 
@CMDRNG,R1 

15$ 

#RSPRNG,R1 
R1,RSPSAV 

PC 


sGET OUT IF NOT AVAILABLE 
;"GET DUST STAUS” PACKET ADDRESS 
ae LAST RESPONSE 


SET UP COMMAND RING POINTER 


sPUT THE PACKET ADDRESS INTO THE DESCRIPTOR 


sSET THE OWNERSHIP BIT OF THE DESCRIPTOR 
sREAD THE IP REGISTER 

sREAD THE SA REGISTER 

sBRANCH IF NO ERRORS 

sSAVE THE SA FOR THE ERROR PRINTOUT 
sPRINT PORT DETECTED ERROR 


sDROP THE UNIT 


sGET OUT 

sADJUST RESPONCE POINTER FOR NEXT TIME 
sARE WE AT THE END ? 

sNO, GET OUT 

sSET R1 TO TOP BUFFER 

sSAVE THE COMMAND RING LOCATION 
sRETURN 


sCALL PORT DRIVER RECEIVE 

:IS THE DRIVE AVAILABLE 

sGET OUT IF NOT AVAILABLE 

sINTERNAL TEST DONE ? 

YES, BRANCH 

SET UP RESPONCE BUFFER POINTER 

IS THIS THE RESPONSE THAT IS EXPECTED ? 
YES, BRANCH 

sWAS IT A “GET DUST STATUS” COMMAND ? 
NO, BRANCH TO EXIT 

sGET START OF “RECEIVE DATA” PACKET 

sIS IT A “RECEIVE DATA” RESPONSE ? 

s;NO, BRANCH TO EXIT 

sGIVE THE CONTROLLER THE RING BACK 
sADJUST RESPONCE POINTER FOR NEXT TIME 
sARE WE AT THE END ? 

sNO, GET OUT 

sSET R1 TO TOP BUFFER 

sSAVE THE POINTER FOR NEXT TIME 
sRETURN 








GLOBAL AREAS 


2432 
2433 
2434 032670 
2435 032670 
2436 032674 
2437 032702 
2438 032704 
2439 032706 
2440 032710 
032714 
2442 032716 
2443 032722 
2444 032724 
032724 
032726 
032730 
032732 
2445 032734 
032734 
032740 
2446 032742 
032744 
032744 
022746 
032750 
032752 
2448 032754 
032754 
032760 
2449 032762 
2450 032764 
032772 
2452 033000 
2453 033002 
033010 
033010 
033012 
033014 
033016 
2455 033020 
033020 
033024 
2456 033026 
033030 
033036 
2459 033040 


2464 033042 
2465 033050 
2466 033052 
033056 
2468 033060 
2469 033064 
2470 033066 
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GLOBAL SUBROUTINES SECTION 


013701 
012737 
005002 
005202 
001026 
005337 
001023 
022705 
001410 


104455 
000066 
024567 
030624 


013700 
104451 
000436 


104455 
000067 
024637 
030624 


013700 
104451 
000426 
017464 
032764 
001413 
012737 


104455 
000070 
024271 
027252 


013700 


026365 
001003 
005763 
001451 
022705 
001416 
022705 


022752 
000005 


002736 
002370 


002332 


002332 


000002 
100000 


025670 


002332 


100000 


000000 
000012 
002410 
002436 





002736 


000012 
000012 


002330 


000002 


000000 


PDRECV:: 
1$: 
S$: 


6$: 


10$: 


208: 
100$: 


CHKRSP : 


RSPSAV,R1 
= 


54.,EMSG16,FRUERR 
CSEROF 


54 

EMSG16 

FRUERR 

LOGUNT 

LOGUNT ,RO 

CsD0D0U 

100$ 
55.,EMSG17,FRUERR 
CSERDF 


55 

EMSG17 

FRUERR 

LOGUNT 

LOGUNT ,RO 

C$D0DU 

100$ 
STUSACR4 ), TUSASV(R4) 
#BIT15, TUSASVCR4) 
20$ 

#LSCT,FRUIS 
56.,EMSG9, WRPRTE 
CSERDF 


LOGUNT 

LOGUNT ,RO 

C$D0DU 

100$ 

aaa 
$ 


PC 


ne ee anes 
P.STSCR3) 

15$ 

#EXELOC,RS 

7$ 

#RCVDAT,RS 


sPUT THE RESPONSE RING SAVE IN RL 
;SET UP THE TIME OUT COUNTER 
sCLEAR R2 

sINCREMENT HI TIME OUT VALUE ? 
sNO OVERFLOW YET, BRANCH 

;ELSE, INCREMENT HI TIMEOUT 

sKEEP GOING ,NO TIME OUT YET 

sWAS IT A “GET DUST STATUS” COMMAND ? 
sYES, PRINT ERROR 


;"EXECUTE LOCAL PROGRAM” COMMAND TIMEOUT 


:GO DROP THE UNIT 


GET OUT ON ERROR 
;"GET DUST STATUS” COMMAND TIMEOUT 


GO DROP THE UNIT 


;GET OUT ON ERROR 

sGET SA CONTENTS 

sCHECK FOR SA ERROR 

sNO ERROR, BRANCH 

sLOAD FAILING FRU 

sPRINT “SA CONTENTS IN ERROR” MESSAGE 


s;DROP THE UNIT 


;GET OUT ON ERROR 

sIS THE SLOT SET TO US ? 

sKEEP GOING TILL TIMEOUT OR SUCCESS 
sRETURN 


;DID COMMAND REFERENCE NUMBERS MATCH ? 
:NO, BRANCH 

sWAS STATUS "NORMAL"? 

sYES, BRANCH 

sWAS IT AN “EXEC LOC PROG” COMMAND ? 
YES, BRANCH 

sWAS IT A “RECEIVE DATA” COMMAND ? 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2471 
2472 
2473 
2474 


2475 


2476 
2477 


2478 


2479 
2480 


2481 


2482 
2483 


2484 


2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 


033072 
033074 
033100 
033102 
033102 
033104 
033106 
033110 
033112 
033112 
033116 
033120 
033122 
033122 
033124 
033126 
033130 
033132 
033132 
033136 
033140 
033142 
033142 
023144 
033146 
033150 
033152 
033152 
033156 
033160 
033162 
033162 
033164 
033166 
033170 
033172 
033172 
033176 
033200 
033202 
033206 
033210 
033216 
033220 
033226 
033230 
033236 
033240 
033242 
033250 
033252 
033260 
033262 
033270 
033270 
033272 
033274 
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001423 
022705 
001430 


104455 
000071 
024701 
030256 


013700 
104451 
000501 


104455 
000072 
024743 
027306 


013700 
104451 
000471 


104455 
000073 
025013 
027726 


013700 
104451 
000461 


104455 


012737 


104455 
000075 
025104 


002466 


002332 


002332 


002332 


002332 


002370 
000010 
000010 
000017 


000020 
000022 
025716 





000014 
000201 
000007 


002356 
002360 
002330 


6$: 


7$: 


9$: 


15$: 


20$: 


30$: 


Page 56-3 


8$ 

en 
57.,EMSG18,GDSERR 
CSERDF 


57 

EMSG18 
GDSERR 
LOGUNT 
LOGUNT ,RO 
Cs000uU 


100$ 
58.,EMSG19,ELPERR 
CSERDF 


EMSG19 

ELPERR 

LOGUNT 

LOGUNT ,RO 

CsD0DU 

100$ 

59. ,EMSG20,RCVERR 
ROF 


LOGUNT ,RO 

CsD0DU 

100$ 

60. ,EMSG21 ,FRUERR 
CSERDF 


LOGUNT 
C$D0DU 


Sanne ra 
$ 

+ nae, 
P.FLGS(R3),#7 

6$ 


100$ 
S PRRnee POCRR, 
P.IND2(R3),PROGRH 
50$ 


#ORVE,FRUIS 

61. ,EMSG22,FRUERR 
CSEROF 

61 

EMSG22 





SEQ 71 


sYES, BRANCH 

sWAS IT AN “ABORT” COMMAND ? 

sYES, BRANCH 

sPRINT “GET DUST STATUS” COMMAND FAILURE 


sDROP THE UNIT 


sGET OUT ON ERROR 
sPRINT “EXECUTE LOCAL PROGRAM” COMMAND FAILURE 


sDROP THE UNIT 


sGET OUT ON ERROR 
sPRINT “RECEIVE DATA” COMMAND FAILURE 


sDROP THE UNIT 


;sGET OUT ON ERROR 
sPRINT “ABORT” COMMAND FAILURE 


sDROP THE UNIT 


;GET OUT ON ERROR 
sWAS IT A GET DUST STATUS COMMAND ? 
sNO, BRANCH TO EXIT 

sARE WE IN TEST 9 ? 

sNO, GO CHECK PROGRESS INDICATOR 
sCORRECT ENDCODE ? 

sNO, ERROR 

sCORRECT FLAGS ? 

sNO, ERROR 

sSUCCESS, RETURN 

sCHECK LOW WORD OF PROGRESS INDICATOR 
sPROGRESS BEING MADE, BRANCH 

;CHECK HIGH WORD OF PROGRESS INDICATOR 
sPROGRESS BEING MADE, BRANCH 
sLOAD FAILING FRU 

sPRINT “INTERNAL TEST HUNG” ERROR 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2501 


033276 
033300 
033300 
033304 
033306 
033310 
033316 
033324 


033464 
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030624 


013700 
104451 
000406 
016337 
016337 
000207 


012701 
121127 
001446 
121127 
001413 
121127 
001440 


104455 
000076 
025135 
030604 


013700 
104451 
900430 
012737 
012702 
116162 
116162 
116162 
116162 


104455 
000077 
025215 
030540 


013700 
104451 
952764 
000207 


002332 


000020 
000022 


060000 
000001 


000002 
000003 


002332 


025716 
024066 
000002 
000003 
000004 
000005 


002332 
000020 





002356 
002360 


002330 


000020 
000021 
000046 
000047 


000014 


50$: 
100$: 


CHKMSG : 


1$: 


100$: 


ENDMOD 


Page 56-4 


FRUERR 

LOGUNT 

LOGUNT ,RO 

CsD00U 

100$ 
P.iND1(R3),PROGRL 
" emeeontcibomteanns 


62. ,EMSG23, INVMSG 
CSERDF 


62 

EMSG23 
INVMSG 
LOGUNT 
LOGUNT ,RO 
C$D0DuU 

100$ 

#DRVE ,FRUIS 
#F AULTC,R2 
2(R1),20(R2) 
3(R1),21(R2) 
4(R1),46(R2) 
SC(R1),47(R2) 
63.,EMSG24,INTMSG 
CSERDF 


LOGUNT ,RO 
C$D0DU 
sr Lee 


- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


BGNMOD 
-SBTTL INITIALIZE SECTION 


A 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


; AT THE BEGINNING OF EACH PASS. 





SEQ 72 


sDROP THE UNIT 


;GET OUT ON ERROR 
sUPDATE LOW WORD OF PROGRESS INDICATOR 
sUPDATE HIGH WORD OF PROGRESS INDICATOR 


sGET START ADDRESS OF MESSAGE BUFFER 
sNORMAL COMPLETION MESSAGE ? 

sYES, BRANCH TO EXIT 

sERROR COMPLETION MESSAGE ? 

sYES, BRANCH 

sNORMAL COMPLETION WITH INFO. MESSAGE ? 
sYES, BRANCH TO EXIT 

sINVALID MESSAGE FROM INTERNAL TEST 


sDROP THE UNIT 


sGET OUT ON ERROR 

GET FAILING FRU 

sGET ADDRESS QF ERROR MESSAGE 

31ST ASCII BYTE OF FAULT CODE INTO MESSAGE 
s2ND ASCII BYTE OF FAULT CODE INTO MESSAGE 
31ST ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 
s2ND ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 
sPRINT ERROR MESSAGE 


sDROP THE UNIT 


sSET DONE FLAG 
sRETURN 
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INITIALIZE SECTION 


033502 
033502 


033504 
033504 
033510 
033512 
033512 


023514 
033514 
033520 
033522 
033522 


033524 
033524 
033530 
033532 
033532 


033534 


033536 
033536 
033544 
033550 
033554 
033562 
033564 


033570 
033570 
033572 
033576 


033604 
033610 
033616 


033620 
033620 
033624 


012700 
104447 


103421 
012700 
104447 
103415 
012700 
104447 
103411 
012700 
104447 
103422 
012700 
104447 
103465 
000423 
012737 
005037 
012704 
022737 


103002 
004737 


104433 
005237 
012737 


005237 
023737 
001433 


013700 
104442 


000040 


000037 


000034 


000035 


000036 


000000 
002314 
002234 
001400 


030776 


002312 
177777 


002332 
002332 


002332 





002312 


002120 


002332 


002012 


L$INIT:: 


START: 


NUPASS: 


NEXT: 


BGNINIT 


READEF #E€F .START 
MOV #EF .START,RO 


TRAP CSREFG 
BCOMPLETE START 
BCS START 


READEF #EF .RESTART 


MOV #EF .RESTART,RO 
TRAP C$REFG 
BCOMPLETE START 
BCS START 

READEF #EF.PWR 

MOV #EF .PWR,RO 
TRAP CSREFG 
BCOMPLETE START 
BCS 

READEF #E€F .NEW 

MOV #EF .NEW,RO 
TRAP CSREFG 
BCOMPLETE NUPASS 
BCS NUPASS 


READEF #€F .CONTINUE 


MOV #EF . CONTINUE ,RO 
TRAP CS$REFG 
BCOMPLETE END 
BCS END 

BR NEXT 

MOV #0 ,PASCNT 
CLR KTFLAG 

MOV #LUNBLK ,R4 
CMP #1400, L$HIME 
BHIS NUPASS 

JSR PC .KTTEST 
BRESET 

TRAP CSRESET 

INC PASCNT 

MOV #-1,LOGUNT 
INC LOGUNT 

CMP LOGUNT ,L $UNIT 
BEQ END 

GPHARD LOGUNT,RO 
MOV LOGUNT ,RO 
TRAP C$GPHRD 





sIF THIS IS A FRESH START 


; THEN GO TO START 


sIF THIS IS A RESTART 


; THEN GO TO START 


sIF POWER-FAIL OCCURRED 


; THEN START FROM THE BEGINNING 


sIF THIS IS A NEW PASS 


s THEN SKIP START UP CODE 


sIF TrIS IS A CONTINUE 


; TEN SKIP ALL INIT CODE 


sJUST HERE FOR NEXT UUT 


sINITIALIZE PASS COUNT 

sIN CASE WE'RE STARTED > THAN ONCE 
sR4 WILL ALWAYS POINT TO LUNBLK 
sIF_<= 28KWORDS OF MEMORY PRESENT 
; THEN SKIP NEXT 

s ELSE SEE IF MMU IS PRESENT 


sCLEAR THE WORLD 


sUPDATE THE PASS COUNT 
sINITIALIZE LOGICAL UNIT COUNT 


sPOINT TO NEXT UUT 
sIF WE'VE PASSED MAXIMUM UUT’S 
; THEN LEAVE INIT 


sGET P-TABLE FOR THIS UNIT 
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INITIALIZE SECTION 


2618 033626 
033626 


033700 
033702 


2628 033706 
2629 033706 
033706 
033710 


2642 033712 
2645 033742 


033742 
033742 


104432 
000032 


045 


104411 





000006 
031162 


002332 
033712 
000602 


000006 


116 





END: 


045 IMSG: 


L10007;: 


BNCOMPLETE NEXT 
BCC NEXT 
MOV CRO), TUTPCR4 ) 
MOV CRO)+, TUSACR4) 
ADD #2, TUSACR4 ) 
MOV CRO)+, TUVECCR4) 
MOV CRO) ,MSCPUNC R4 ) 
JSR PC ,RSTVEC 
PRINTF #IMSG,LOGUNT 
MOV LOGUNT , - (SP) 
MOV #IMSG, -( SP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6 ,SP 
EXIT INIT 
TRAP CsEXIT 
-WORD  1L10007-. 
ASCIZ ?SNSATESTING UNIT #D1sN? 
EVEN 
ENDINIT 
TRAP CSINIT 


sTRY AGAIN 







;PUT IP REG ADDRESS IN LUNBLK 
s AND ANOTHER COPY IN LUNBLK 
sMAKE IT THE SA REG ADDRESS 
sGET THE VECTOR INTO THE LUNBLK 
sPUT THE T/MSCP UNIT # IN LUNBLK 
sSET UUT VECTOR FOR ILLEGAL INTRPTS. 
:"TESTING UNIT N” 





MISCELLANEOUS SECTIONS 
CLEANUP CODING SECTION 


2654 033744 
033744 


2662 033744 
2663 033752 


2668 033754 


2672 033760 
033760 
033764 


2674 033766 
033766 
033770 


2690 033772 
033772 
033772 


032764 
001400 


005064 


016400 
104436 


104432 
000002 


104412 





000000G 002234 


000014 


000004 
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-SBTTL CLEANUP CODING SECTION 


e+ 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 

g= 


BGNCLN 

L$CLEAN: : 
BIT #TOFLAG, LUNBLK(R4) sIF NOT HERE FROM TEST 9 
BEQ ENDCLE ; THEN SKIP THE REST 


sEVENTUALLY MORE CODE WILL BE PLACED HERE TO GUARANTEE THAT AN ABORT 
sCOMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM. 


ENDCLE: CLR LUNFLGC(R4) sCLEAR OUT THE LUN FLAGS 


sNOTE: THIS LINE OF CODE MAY HAVE TO BE REMOVED TO HANDLE tC FOLLOWED 
sBY A PROCEED COMMAND CORRECTLY. 
CLRVEC TUVECC(R4) sPUT “TRAP CATCHER” INTO VECTOR 
MOV TUVECCR4), RO 
TRAP Cscvec 


EXIT CLN 
TRAP CSEXIT 
-WORD L10010-. 
-EVEN 

ENOCLN 


L10010: 
TRAP CsCLEAN 
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DROP UNIT SECTION 


—— 


033774 
033774 


033774 


034002 
034002 
034004 


034006 
034006 
034006 


012764 


000167 
000000 


104453 








-SBTTL OROP UNIT SECTION 


34 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 

loadin 


BGNDU 

L$DU 

000001 000014 MOV #DRPFLG,LUNFLG(R4) sLETS PROGRAM KNOW IT’S DEAD 

EXIT DU 
-WORD J$JMP 
-WORD 1L10011-2-. 
-EVEN 
ENDDU 

L10011: 
TRAP Csbu 
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ADD UNIT SECTION 


8 
2759 034014 
034014 
034014 


0 
44] 024016 


2611 034016 

034016 
2812 034016 
2813 034020 
2814 034026 
2815 034032 
2816 034034 


r-— 


000167 
000000 


104452 


000000 


000240 
012737 
005737 
001404 
012737 


000001 0000006 
002312 


000010 000000G 















-SBTTL ADD UNIT SECTION 


3+ 

; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
s TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
s TO THE TEST CYCLE. 

§=2 


BGNAU 

LSAU:: 
EXIT AU 
«WORD J$JMP 
«WORD 1L10012-2-. 
EVEN 
ENDAU 

L10012: 
TRAP CsAU 
ENDMOD 

- TITLE HARDWARE TEST 

HELP =0 ; CONTROL LISTING OF HELP INFORMATION 


s HELP=0 NO LIST 
; HELP=1 LIST 


sONEFILE= s CONTROL USE OF SOURCE FILES 
s ONEFILE IS NOT DEFINED ASSEMBLE EACH SOURCE FILE SEPARATELY 
s ONEFILE=ANYTHING ASSEMBLE ALL SOURCE FILES TOGETHER 


-SBTTL TEST 1: EXISTENCE VERIFICATION TEST 


5 SRRESSAEAEASEEEESEESSASEERERERASEAEEEEESEERALESAREEEEERARALLELE 
§ F SSRAEEAESASASASSESSSESEASASASEARESASARELARESALASEALEAREAESERELE 


; 

sTEST 1 - EXISTENCE VERIFICATION TEST 

THIS TEST VERIFIES THE EXISTENCE OF THE UUT BY 

ATTEMPTING TO READ FIRST THE IP AND THEN THE SA 

REGISTERS OF THE TU81. VECTOR 4 IS SET UP WITH 

A_TRAP HANDLING ROUTINE IN CASE OF A NON-EXISTENT 
MEMORY TIMEOUT. 

3 


5 5 $886 666606466446464646046 6666466066 006466466064606004464044004644604640606 64444 
5 5 9606 6660060666660606646666064406640464646464506 6466484646446 4646046 44444644444 


BGNTST 
Ti:: 
NOP 
MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
TST PASCNT 3IF PASS 0 
BEQ T1.1 ; THEN START TEST 
MOV #10, ITRCNT ; ELSE DO MULTIPLE ITERATIONS 








HARDWARE TEST 


2817 
2818 


034042 
034044 


034170 
034170 
034174 
034176 
034176 
034200 


034202 
034202 
034202 
034204 
034206 
034206 
034212 
034214 
034222 
034224 
034224 
034226 
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TEST 1: EXISTENCE VERIFICATION TEST 


000240 


012737 


104455 
000005 
024140 
027222 


104406 


013700 
104451 


104410 
000002 





002116 
177772 
177756 


002316 


025647 002330 


002332 


000004 
000001 000014 


Ti.1: 
1s: 


5$: 
L10014: 
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Cs#B8SUB 
TRP4FG 


OVEC4, @TRAP4 , @PRIO7 


@PRIO7,-C(SP) 
@TRAP4, -(SP) 
evec4, -(SP) 
@3,-(SP) 
C$SVEC 

#10, SP 


STUIPCR4) 


1 
#1,CPC)« 
LSOLY.(PC)+ 
-6(PC) 

4 

-22(PC) 

.-20 

TRP4FG 

S$ 

CTRL, FRUIS 

5, EMSGS, PRIERR 
C#ERDF 


EMSGS 
PRIERR 


CSCLPi 


SUB 
CSESCAPE 
L10014-. 


CsCveECc 


@ORPFLG, LUNFLG(R4) 


T1.2 


L10013-. 


SEQ 78 


sCLEAR NXM TRAP FLAG 
sSET UP VECTOR 4 FOR NXM TRAP 


sWRITE THE IP REGISTER 
sMAKE SURE TIMEOUT CAN OCCUR 


sIF NO TRAP OCCURRED 
3; THEN CONTINUE TEST 


sIDENTIFY FAILING FRU FOR PRINTOUT 
:"NXM ON READ TUIP” 


sLOOP ON ERROR? 
sDROP UNIT 


sCAN‘'T CONTINUE 


sRESTORE VECTOR 4 


sIF UNIT WAS NOT DROPPED 
; THEN CONTINUE TESTING 
; ELSE LEAVE TEST 





-_- 


HARDWARE TEST 
TEST 1: EXISTENCE VERIFICATION TEST 


2843 034230 
034230 T1l.2: 
108: 


104402 


005037 002316 


000340 
030656 
000004 
000003 


000010 
000002 


012746 
012746 
012746 
012746 
104437 
062706 
000240 
005774 
000240 


012727 000031 


002116 
177772 


177756 
024322 


2852 034324 
2653 034330 
2654 034332 
2855 034334 
2856 034342 
034342 
034344 
034346 
034350 
2857 034352 
034252 
2858 034354 
034354 
034360 
2859 034362 
034362 
034364 


2861 034366 
2862 934374 
2863 034402 
2864 034404 
2865 034406 
2866 034414 
2867 034422 
034422 
034424 
034426 
034430 
2868 034432 
034432 
2869 034434 


002316 


000240 
012737 


104455 
000007 
024212 
027222 


104406 


013700 
104451 


104410 
000062 


017464 
032764 
001021 
000240 
012737 
012737 


104455 
000010 
024233 
027026 


104406 


025647 002330 


002332 


000002 
004000 


000012 153: 
000012 


004900 
025670 


002334 
002330 


ee SS ee en 


BGNSUB 


TRAP 
CLR 


SETVEC 
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C$BSUB 
TRP4FG 


@VEC4, OTRAP4 , OPRIO7 
@PRIO7,-(SP) 
@TRAP4, -(SP) 

@VEC4, -(SP) 
@3,-CSP) 

CSSVEC 

#10,SP 


STUSACR4 ) 


2s. 
025. ,CPC)+ 
0 


0 


TRP4FG 
15$ 


@CTRL, FRUITS 
7,EMSG7,PRIERR 
—— 

EMSG7 

PRIERR 


CsCLP1 


UB 
CS=SCAPE 
L10015-. 


STUSACRS ), TUSASV(R4) 
+> | ata mie 


8B .S1,SAEXP 
@LSCT,FRUIS 

8. ,EMSG8,PRISA 
CSERDF 

8 


EMSG8 
PRISA 


CsCLP1 
LOGUNT 





SEQ 79 


sCLEAR NXM ERROR FLAG 
sSET VECTOR 4 FOR NXM TRAPS 


sREAD THE SA REGISTER 
sWAIT TO ALLOW NXM TRAP 


sIF NXM DID NOT OCCUR 
; THEN CONTINUE TEST 


sIDENTIFY FAILING FRU FOR PRINTOUT 
:"NXM ON FIRST READ OF SA’ 


sLOOP ON ERROR? _ 
;DROP UNIT IF NOT 


sLEAVE TEST 


;sGET A COPY OF SA IN MEMORY 
sIF STEP 1 BIT IS SET 
; THEN TEST 1 IS COMPLETE 


sLOAD “EXPECTED FOR PRINTOUT 


sIDENTIFY FAILING FRU FOR PRINTOUT 
;"SA REG IN ERROR ON FIRST READ” 


sLOOP ON ERROR? 
sDROP UNIT IF NOT 





HARDWARE TEST 


2870 


28671 


2872 
2873 
2874 


2875 
2876 
2877 
2878 
2879 
2880 
2681 
2862 


2883 
2884 
2885 
2586 
2687 


2888 


034434 
034440 
034442 
034442 
034444 
034446 
034446 
034446 


034450 
034454 
034454 
034460 
034462 
034470 
034472 
034476 
034500 
034502 


034506 
034506 
034510 


034512 
034512 
034512 
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013700 
104451 


104410 
000002 


104403 
005037 


012700 
104436 
032764 
001006 
005337 
000240 
001402 
000137 


104432 
000002 


104401 





002332 


002334 
000004 

000001 000014 
0000006 * 


034044 


16$: 
L10015: 


208: 


258: 


L10013: 


-EVEN 
ENDTST 
TRAP 


Page 59-3 


LOGUNT ,RO 
Cs000uU 
SUB 
CSESCAPE 
L10015-. 


CsESUB 


SAEXP 

@vec4 

@vEC4,RO 

Cscvec 

en 
$ 


CSEXxI7 
L10013-. 


CSETST 


sLEAVE TEST 





sCLEAR ERROR INDICATOR \ 
sRESTORE VECTOR 4 


sIF UNIT DROPPED 
;__THEN LEAVE NOW 
sIF ITERATIONS EQUAL 0 


; THEN LEAVE TEST 
; ELSE GO BACK FOR MORE 





HARDWARE TEST 


2944 
2945 


Becta 2a ME a aan ts eet lle 


034514 
034514 


034514 
034522 
034524 
034524 
034526 
024530 
024536 
034544 
034552 
034554 


034562 
034566 
034574 
034602 
034606 
034612 
034620 
034626 


034634 
034642 
034650 
034656 
034664 
034672 


034700 
034704 
034710 


034712 
034712 
034714 
034716 
034720 
034722 
034722 
034724 
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032764 
001402 


104432 
000214 
012737 
012737 
022737 
001403 
012737 


012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 


012737 
012737 
012737 
112737 
012737 
012737 


004737 
005737 
001412 


104455 
000011 
024271 
027002 


104406 


000001 


031330 
002340 


000014 


002330 
000000G 
002312 


000000G 


002336 
002272 


002306 
002272 
002302 


002274 
002304 
002276 
002307 
002300 
002310 


-SBTTL TEST 2: INITIALIZATION TEST (POWER UP MICRODIAGNOSTICS) 


FF PSOE SASAEESKAKHAEAEEEKEEAEEEEKEKAKAEESEKEARELEEEEDEREEEDEEE 
FF PASASESESAEKASEEAAASEEEKAKEEAEESEAAREEREKEAAALEAEEEREREEEEEEEESE 


; 

sTEST 2 - INITIALIZATION TEST (POWER UP MICRODIAGNOSTICS) 

THIS TEST COMMENCES STEP 1 OF THE UQ-PORT INITIALIZATION 
SEQUENCE WITH INTERRUPTS DISABLED. AS A RESULT, THE ROM 
RESIDENT MICRODIAGNOSTICS WILL BE RUN TO COMPLETION AND 


CHECKED FOR ANY ERRORS. 


oF SSSASOKESEAKESEASESESEAASSAEAEAEEEAEEAESAAAEEEAESEEERAREREREEEES 
FF PSSRAAEKEAEKESSSEKESEAAAEAEAEKAAEEEEKEEEEEESEAEKEEEEEEEDRELKEEEESE 


1$: 


2s: 


BGNTST 


BIT #DRPFLG,LUNFLG(R4) 
1$ 


EXIT TST 
TRAP CSEXIT 
-WORD L10016-. 


MOV #LESI,FRUIS 
MOV #1, ITRCNT 
CMP #1,PASCNT 


2$ 
MOV #10. ,ITRCNT 


MOV #0 ,RS 

MOV #1,INISTP 

MOV TUVECC(R4), STPTBL 
ASR STPTBL 

ASR STPTBL 

MOV STPTBL ,CMPTBL +4 
BIS #104400, STPTBL 


sIF UUT NOT DROPPED 
; THEN DO TEST 
+ ELSE GET OUT 


sFAILING FRU IN CASE OF ERROR . 
sSET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE 00 10 ITERATIONS 


sSET UP RS AS INDEX TO STEP TABLES 
sSTEP 1 FOR ERROR PRINTOUT 

sPUT VECTOR IN STEP 1 

sDIVIDE BY TWO 

sDIVIDE BY FOUR 

sPUT VECTOR IN STEP 3 COMPARE 
sREST OF STEP ONE 


MOV #8 .S1!B8.QB!8.0I1!8.00!8.MP,CMPTBL 


MOV @COMMAR, STPTBL +2 
MOV #010211, CMPTBL +2 
MOV #0,STPTBL+4 

MOVB #40, CMPTBL+5 

MOV #0, STPTBL+6 

MOV #040000, CMPTBL +6 


JSR PC,STEP1 
TST STEPST 
BEQ T2EXT 


ERRLF 9. ,EMSG9,PRIINI 
TRAP CSERDF 


-WORD 9 
-WORD EMSG9 
-WORD PRIINI 
CKLOOP 


TRAP CSCLP1 
DODU LOGUNT 


sSTEP 1 COMPARE VALUE 

sSTEP 2 - COMM AREA ADDRESS 
sSTEP 2 COMPARE 

sSTEP 3 - HIGH ADDRESS 
sREST OF STEP 3 COMPARE 


sSTEP 4 
sSTEP 4 COMPARE 
:GO DO IT 


sIF STATUS OKAY 
; THEN DO NEXT TEST 


"SA CONTENTS IN ERROR” 


sLOOP ON ERROR? 
sDROP UUT 











HARDWARE TEST 


2946 


2947 
2948 


2949 
2950 


2951 


034724 
034730 
034732 
034732 
034734 


034736 
034736 
034740 


034742 
034742 
034742 
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013700 002332 
104451 


104410 
000006 


104432 
000002 


104401 





MOV LOGUNT ,RO 
TRAP Cs00DuU 


ESCAPE TST sLEAVE TST 
TRAP CSESCAPE 
-WORD L10016-. 


T2EXT: EXIT TST 
TRAP CSsEXIT 
-WORD 1L10016-. 
ENDTST 


TRAP CSETST 


L10016: 


SEQ 82 


HARDWARE TEST 
TEST 3: INITIALIZATION TEST 


2977 


2978 
2979 
2980 
2981 


2982 
2983 
2984 
2985 


3009 


034744 
034744 


034744 
034752 
034754 
024754 
034756 
034760 
034766 
034774 
034776 


035004 
035010 
035016 
035024 
035030 
035034 
035042 
035050 


035056 
035064 
035072 
035100 
035106 
035114 


035122 
035126 
035132 


035134 
035142 
035142 
035144 
035146 
035150 
035152 
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032764 
001402 


104432 
000402 
012737 
022737 
001403 
012737 


012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 


012737 
012737 
012737 
112737 
012737 
012737 


004737 
005737 
001415 


012737 


104455 
000011 
024271 
027002 


000001 


000001 
000001 


000012 


000000 
000001 
000004 
002272 
002272 
002272 
104400 
005700 


060050 
010211 
000000 
000040 
000000 
040000 


031330 
002340 


025632 





000014 


000000G 
002312 


000000G 


002336 
002272 


002306 
002272 
002302 


002274 
002304 
002276 
002307 
002300 
002310 


002330 





-SBTTL TEST 3: INITIALIZATION TEST 


5 FE PRSEAAERAREREAARARERERAEREAAERAAEARARARAREREREREASEAARARARARAREEL 
3 § SREREAREEEEEERASAAEAREEEEEAARERERERARAREEREEAAEALEREARALELARALRSE 


; 
sTEST 3 - INITIALIZATION TEST 


THIS TEST COMMENCES THE UQ-PORT INITIALIZATION SEQUENCE 
WITH INTERRUPTS DISABLED. IT VERIFIES THAT ALL STEP 
TRANSITIONS OCCUR WITHIN THE ALLOTED TIME, AND THAT ALL 
HOST SUPPLIED INFORMATION IS ECHOED BY THE UUT. THE 
PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 


RESULT OF THE STEP TRANSITIONS. 


5 § RRSRAEEAEEEEAEAEAEAERAEREREREARAAEARARAEREEREAERARAEREERARAAKAAAAAEREL 
5p RRRAEAAEAAREREREARAREREREEEEKEREREARAAREEREARAAAEARERAREAARAEEREAKEEK 


BGNTST 
T3:: 
BIT #DRPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 
BEQ i$ ; THEN DO TEST 
EXIT TST ; ELSE GET OUT 
TRAP CSEXIT 
-WORD L10017-. 
1$: MOV #1,ITRCNT ;SET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 
BEQ 2$ ; THEN START TEST 
MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
2s: MOV #0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
MOV TUVECCR4), STPTBL ;PUT VECTOR IN STEP 1 
ASR STPTBL sDIVIDE BY TWO 
ASR STPTBL ;DIVIDE BY FOUR 
MOV STPTBL ,CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
BIS #104400, STPTBL ;REST OF STEP ONE 
MOV #8 .S1!B.QB8!B.DI!8.00!68.MP,CMPTBL 
;STEP 1 COMPARE VALUE 
MOV #COMMAR , STPTBL +2 ;STEP 2 - COMM AREA ADDRESS 
MOV #010211, CMPTBL+2 :STEP 2 COMPARE 
MOV #0,STPTBL+4 ;STEP 3 - HIGH ADDRESS 
MOVB #40, CMPTBL+5 ;REST OF STEP 3 COMPARE 
MOV #0,STPTBL+6 sSTEP 4 
“MOV #040000, CMPTBL +6 :STEP 4 COMPARE 
JSR PC,STEP1L :GO DO IT 
TST STEPST ;IF STATUS OKAY 
BEQ 5$ ; THEN CONTINUE TEST 
MOV #LESI,FRUIS sFAILING FRU IN CASE OF ERROR 
ERRDF 9.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
TRAP CSERDOF 
-WORD 9 
-WORD EMSG9 
-WORD PRIINI 
CKLOOP ;LOOP ON ERROR? 





——_————— a cee 
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TEST 3: INITIALIZATION TEST 
035152 104406 TRAP CsCLP1 
3010 035154 00DU LOGUNT sDROP UUT 
035154 013700 002332 MOV LOGUNT ,RO 
035160 104451 TRAP Cs000U 
3011 035162 ESCAPE TST sLEAVE TST 
035162 104410 TRAP CSESCAPE 
seus 035164 000174 -WORD 1L10017-. 
3013 035166 005237 002336 S$: INC INISTP sADJUST STEP COUNTER 
3014 035172 062705 000002 ADD #2,R5 sADJUST TABLE INDEX 
3015 035176 012737 000100 002346 6%: MOV #100 ,OUTER sSET UP FOR DELAY ROUTINE 
3016 035204 016537 002302 002334 MOV CMPTBLC(RS),SAEXP sSET UP FOR COMPARE 
3017 035212 012737 037200 002344 7$: MOV #16000. , INNER sSET UP INNER 
3018 035220 017464 000002 000012 MOV STUSACR4), TUSASV(R4) sGET SA CONTENTS 
3019 035226 022705 000006 CMP #6 ,R5 sARE WE IN STEP 4? 
3020 035232 001005 BNE 8$ sBRANCH IF NOT 
3021 035234 033764 002334 000012 BIT SAEXP, TUSASV(R4) sJUST LOOK FOR STEP 4 BIT 
3022 035242 001027 BNE 10$ sIT’S SET SO LET‘S GO 
3923 035244 000404 BR 9$ sSTAY IN LOOP OTHERWISE 
3024 035246 023764 002334 000012 8%: CMP SAEXP, TUSASV(R4) sIF SA IS WHAT WE EXPECT 
3025 035254 001422 BEQ 10$ ; THEN MOVE ALONG 
3026 035256 004737 031302 9$: JSR PC ,PDELAY ; ELSE GIVE UUT SOME TIME 
3027 035262 005737 002350 TST TOUT sIF NO TIMEOUT YET 
ae 035266 001751 BEQ 7$ ; THEN GO TAKE ANOTHER LOOK 
3030 035270 012737 025670 002330 MOV #LSCT,FRUIS sFAILING FRU IN CASE OF ERROR 
3031 035276 ERRDF 13.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
035276 104455 TRAP CSERDF 
035300 000015 -WORD 13 
035302 024271 -WORD EMSG9 
035304 027002 -WORD  PRIINI 
3032 035306 CKLOOP 
035306 104406 TRAP CSCLP1 
3033 035310 DODU LOGUNT 
035310 013700 002332 MOV LOGUNT ,RO 
035314 104451 TRAP C$D0DU 
3034 035316 ESCAPE TST 
035316 104410 TRAP CSESCAPE 
sens 035320 000040 -WORD 1L10017-. 
3036 035322 016574 002272 000002 10%: MOV STPTBLCRS) ,@TUSACR4) sWRITE NEXT STEP TO UUT 
3037 035330 022705 000006 CMP #6 RS ;IF NOT IN STEP 4 
teed 035334 001314 BNE S$ GO BACK TO MAIN LOOP 
3040 035336 032764 000001 000014 BIT #DRPFLG, LUNFLG(R4) sHAS UUT BEEN DROPPED 
3041 035344 001003 BNE T3EXT sLEAVE NOW IF SO 
3042 035346 005337 000000G DEC ITRCNT sIF MORE ITERATIONS LEFT 
rae 035352 001214 BNE es ; THEN GO DO IT AGAIN He. 
4 
3045 035354 T3EXT: EXIT TST 
035354 104432 TRAP CSEXIT 
035356 000002 -WORD L10017-. 
3046 
3047 035360 ENDTST 
035360 L10017: 
035360 104401 TRAP CSETST 








HARDWARE TEST 





MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 65 


TEST 4: SA REGISTER WRAP TEST 


3071 035362 
035362 


3073 035362 
3074 035366 


035512 


3096 035514 
3097 035522 
3098 035530 
3099 035536 
3100 035544 


004737 
032764 
001402 


104432 
000522 
012737 
012737 
022737 
001403 
012737 


012737 
013737 
004737 


005737 
001415 


012737 
104455 


027002 
104406 


013700 
104451 


104410 
000410 


012737 
012737 
017464 
023764 
001422 


030704 
000001 


000001 
000001 
000001 


000002 
140000 
002334 
031330 


002340 


025647 


002332 


000100 
006000 
000002 
002334 





000014 


002336 
000000G 
002312 


000000G 


002334 
002272 


002330 


002346 
002344 
000012 
000012 


-SBTTL TEST 4: SA REGISTER WRAP TEST 


5 RERRERERARARERREEEARERARERERAREAAEEASAEERAAAEEARARAEAREALAREE RES 
5 § RRERERAEREREEER EASE ERARARAEAEERARAEEARAAAEARAAAEAAARERARERE REALS 


a 
sTEST 4 - SA REGISTER WRAP TEST 


OPERATION. 
; 


5 i RERERREARERERERAEAEREEAEEAEAEAAEEAEEAEEAAARAEEAEAEARAAAAKERARAREAL 
5 5 RERREREAEEEEEEAEAEEERERAEAEREAERAAEEERAARAAARAEREASAAARERRAREEREES 


BGNTST 
T4:: 


JSR PC ,CHKCAC 
BIT #DRPFLG, LUNFLG(R4) 
BEQ 1$ 
EXIT TST 
TRAP CSEXIT 
-WORD L10020-. 
1$: MOV #1,INISTP 


MOV #1, ITRCNT 
CMP #1,PASCNT 
BEQ 2$ 
MOV #2, ITRCNT 
2$: MOV #BIT15!B .WR,SAEXP 


MOV SAEXP, STPTBL 
JSR PC ,STEP1 


TST STEPST 
BEQ S$ 


MOV #CTRL,FRUIS 
ERRDF 9.,EMSG9,PRIINI 
TRAP CSERDF 


-WORD 9 
-WORD EMSG9 
-WORD  PRIINI 
CKLOOP 


TRAP CSCLP1 
DODU LOGUNT 
MOV LOGUNT ,RO 
TRAP CsD0DU 
ESCAPE TST 

TRAP CSESCAPE 
-WORD L10020-. 


S$: MOV #100 ,OUTER 

6$: MOV #6000, INNER 
MOV STUSACR4 ), TUSASV(R4) 
CMP SAEXP, TUSASV(R4) 
BEQ 10$ 


THIS TEST WILL INITIALIZE THE UUT BY WRITING TO ITS 
IP REGISTER. IT WILL FORCE THE UUT INTO DIAGNOSTIC 
WRAP MODE, AND WRITE FIRST A FLOATING O DATA PATTERN, 
FOLLOWED BY A FLOATING 1 DATA PATTERN TO THE SA REG. 
EACH WRITE WILL BE FOLLOWED BY A READ AND COMPARE 

















;IF UUT NOT DROPPED 
; THEN DO TEST 
; ELSE GET OUT 


sSTEP 1 FOR ERROR PRINTOUT 
sSET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

s ELSE DO 2 ITERATIONS 


sSET UP STEP 1 FOR DIAG. WRAP MODE 
sPUT IT IN STEP 1 OF TABLE 
:GO0 DO IT 


sIF STATUS OKAY 
; THEN CONTINUE TEST 


sFAILING FRU FOR PRINTOUT 
:"SA CONTENTS IN ERROR” 


sLOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sSET UP FOR DELAY ROUTINE 
sSET UP INNER 

sGET SA CONTENTS 

sIF SA IS WHAT WE EXPECT 
s THEN MOVE ALONG 


HARDWARE TEST 
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TEST 4: SA REGISTER WRAP TEST 


3101 035546 
3102 035552 
3103 035556 
3104 
3105 035560 
3106 035566 
035566 
035570 
035572 
035574 
3107 035576 
035576 
3108 035600 
035600 
035604 
3109 035606 
035606 
035610 
3110 
3111 035612 
3112 035614 
3113 035622 
3114 035630 
3115 025636 
3116 
3117 035644 
3118 035652 
3119 035660 
3120 035666 
3121 035670 
3122 035674 
3123 035700 
3124 
3125 035702 
3126 035710 
035710 
035712 
035714 
035716 
3127 035720 
035720 
3128 035722 
035722 
035726 
3129 035730 
035730 
035732 
3130 
3131 035734 
3132 035740 
3133 
3134 035742 
3135 035750 
3136 035756 
3137 035764 
3138 
3139 035772 


004737 
005737 
001761 


012737 


104455 
000012 
024271 
027002 


104406 


013700 
104451 


104410 
000312 


000261 
012737 
013774 
013737 
012737 


012737 
017464 
023764 
001422 
004737 
005737 
001761 


012737 
104455 


027002 
104406 


013700 
104451 


104410 
000170 


006137 
103730 


012737 
013774 
013737 
012737 


012737 


031302 
002350 


025647 


002332 


177776 
002342 
002342 
000100 


006000 
000002 
002334 
031302 
002350 


025647 


002332 


002342 


000001 
002342 
002342 
000100 


006000 





002330 


10$: 
000002 11%: 


002342 


002334 
002346 


002344 15$: 


900012 
000012 


002330 


20%: 


002342 


000002 24$: 


002334 
002346 


002344 25%: 


JSR PC ,PDELAY 
TOUT 


TST 
BEQ 6$ 

Vv #CTRL,FRUIS 
ERRDF 10.,EMSG9,PRIINI 
TRAP CSERDF 
-WORD 10 
-WORD  EMSG9 
-WORD  PRIINI 
CKLOOP 
TRAP CSCLP1 
DODU LOGUNT 
MOV LOGUNT ,RO 
TRAP CsD0DU 
ESCAPE TST 
TRAP CSESCAPE 
-WORD L10020-. 
SEC 


MOV #177776,WRDATA 
MOV WRDATA,@TUSACR4) 
MOV WRDATA , SAEXP 
MOV #100, OUTER 


MOV #6000, INNER 
MOV STUSACR4 ), TUSASV(R4) 
CMP  —~ eames: 
JSR PC ,PDELAY 
TOUT 
BEQ 15$ 


MOV #CTRL,FRUIS 


ERRDF 11.,E€MSG10,PRIINI 
TRAP CSERDF 
-WORD li 

-WORD €&MSG10 
-WORD PRIINI 
CKLOOP 

TRAP CSCLP1 
DODU LOGUNT 
MOV LOGUNT ,RO 
TRAP CsD0DU 
oe TST 

TRA CSESCAPE 
WORD L10020-. 
ROL WRDATA 
BCS 11$ 


MOV #1,WRDATA 

MOV WRDATA,@TUSACR4) 
MOV WRDATA , SAEXP 
MOV #100 ,QOUTER 


MOV #6000, INNER 





; ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 
s THEN GO TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
;"SA CONTENTS IN ERROR” 


sSET CARRY BIT 

;SET UP FLOATING “0” PATTERN 
sSEND DATA TO UUT 

sSAVE A COPY FOR COMPARE 
sSET UP FOR DELA\ ROUTINE 


sINNER TOO 

sREAD SA 

sIF DATA MATCHES 

s THEN CHANGE DATA 

;__ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 

s THEN GO TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
:"SA WRONG IN DATA WRAP” 


sGET OUT IF NOT LOOPING 


sSHIFT TEST PATTERN 
sWE‘RE NOT DONE YET 


sSET UP FOR FLOATING 1 PATTERN 


sSEND DATA TO UUT 
sKEEP A COPY FOR COMPARE 
sSET UP FOR DELAY ROUTINE 


sDELAY ROUTINE TOO 
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TEST 4: SA REGISTER WRAP TEST 














3140 036000 017464 000002 000012 MOV STUSACR4 ), TUSASV(R4) sREAD THE SA 
3141 036006 023764 002334 000012 CMP SAEXP,, TUSASV(R4) sIF IT MATCHES 
3142 036014 001422 BEQ 30$ ; THEN SEE IF WE'RE DONE 
3143 036016 004737 031302 JSR PC ,PDELAY s ELSE GIVE UUT SOME MORE TIME 
3144 036022 005737 002350 TST TOUT sIF NO TIMEOUT YET 
4 036026 001761 BEQ 25$ s THEN TAKE ANOTHER LOOK 
3147 036030 012737 025647 002330 MOV #CTRL,FRUIS sFAILING FRU FOR PRINTOUT 
3148 036036 ERROF 12.,€MSG10,PRIINI ;"SA WRONG IN DATA WRAP” 
036036 104455 TRAP CSERDF 
036040 000014 -WORD 12 
036042 024316 -WORD EMSG10 
036044 027002 -WORD PRIINI 
3149 036046 CKLOOP 
036046 104406 TRAP CsCLP1 
3150 036050 DODU LOGUNT 
036050 013700 002332 MOV LOGUNT ,RO 
036054 104451 TRAP C$D0DU 
3151 036056 ESCAPE TST sLEAVE TEST IF NOT LOOPING 
036056 104410 TRAP CSESCAPE 
sise 036060 000042 -WORD L10020-. 
3153 036062 006137 002342 308: ROL WRDATA sSHIFT DATA PATTERN 
3154 026066 103330 BCC 24$ sWE‘RE NOT DONE YET 
3155 036070 005337 000000G DEC ITRCNT sIF ITERATIONS = 0 
3156 036074 001402 BEQ T4EXT ; THEN LEAVE TEST 
oe 036076 000137 035434 JMP 2$ ; ELSE DO ANOTHER ONE 
3159 036102 005737 000000G T4EXT: TST CPFLG sCHECK IF CACHE WAS DISABLED 
3160 036106 001403 BEQ EXT sNO, BRANCH 
3161 036110 042737 000014 177746 BIC #DISCAC,CCR sRE-ENABLE CACHE 
3162 036116 EXT: EXIT TST sGET OUTTA HERE 
036116 104432 TRAP CSEXIT 
sss 036120 000002 -WORD L10020-. 
3164 036122 ENDTST 
036122 L10020: 
036122 104401 TRAP CSETST 


a eee 
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3167 -SBTTL TEST 5: 
4 -SBTTL SUBTEST 1: VECTOR AND INTERRUPT TEST 
1 
3173 £ f RSREREREEAEEEASEAAEEAASAEAEEESESSERERESEEESEREEEREREEEEREDERERERSE 
3174 ff RERREAEREEAEREEAARAREEEAEAEASEAAEASESERASEAEARAREAAERARELELERELE 
3175 F 
3176 :TEST 5 
3177 ;SUBTEST 1 - 
3178 3 VECTOR AND INTERRUPT TEST 
3179 3 TEST 3 IS REPEATED, BUT WITH INTERRUPTS ENABLED. 
3180 3 THE PROGRAM VERIFIES THAT AN INTERRUPT OCCURS AT 
ot H THE END OF STEPS 1 - 3. 
; 

3183 2 fF RRRERAAEAEREAEAEAAAERERAEESEEEAEEAAARERAREREAARERARALARARALELEEL 
3184 5 RERAEAAAAREAEAAEAAAERERAEEEREAEEEAEARAREREAAAEREAARARALEEEREALES 
3188 
3189 036124 BGNTST 

036124 T5:: 
3190 036124 BGNSUB 

036124 TS.1: 
sr01 036124 104402 TRAP C$BSUB 
3192 036126 032764 000001 000014 BIT #DORPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 
3193 036134 001402 BEQ 1$ ; THEN DO TEST 
3194 036136 EXIT TST ; ELSE GET OUT 

036136 104432 TRAP CSEXIT 

036140 001114 «WORD L10021-. 
3195 036142 042764 000004 000014 1%: BIC #BRFLAG, LUNFLG(R4) ;D0 TEST WITH PRIORITY SET TO 0 
3196 036150 012737 025647 002330 MOV #CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
3197 036156 012737 000001 000000G MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
3198 036164 022737 000001 002312 CMP #1,PASCNT ;IF FIRST PASS 
3199 036172 001403 BEQ 2$ ; THEN START TEST 
ey 036174 012737 000012 000000G MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
3202 036202 004737 031212 2$: JSR PC, VECTOR ;SET UP VECTOR WITH INTERRUPT HANDLER 
3203 036206 012705 000000 MOV #0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
3204 036212 012737 000001 002336 MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
3205 036220 016437 000004 002272 MOV TUVECC(R4), STPTBL ;PUT VECTOR IN STEP 1 
3206 036226 006237 002272 ASR STPTBL ;DIVIDE BY TWO 
3207 036232 006237 002272 ASR STPTBL sDIVIDE BY FOUR 
3208 036236 013737 002272 002306 MOV STPTBL ,CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
3209 036244 052737 104600 002272 BIS #104600, STPTBL ;REST OF STEP ONE 
3210 036252 012737 005700 002302 MOV 4B ..S1!B.QB!8.01!B.0D0!B8.MP,CMPTBL 
3211 sSTEP 1 COMPARE VALUE 
3212 036260 012737 060050 002274 MOV #COMMAR, STPTBL +2 ;STEP 2 - COMM AREA ADDRESS 
3213 036266 012737 010211 002304 MOV #010211, CMPTBL+2 sSTEP 2 COMPARE 
3214 036274 012737 000000 002276 MOV #0,STPTBL+4 ;STEP 3 - HIGH ADDRESS 
3215 036302 052737 000200 002306 BIS $B .IE,CMPTBL+4 ;SET THE INTERRUPT ENABLE BIT 
3216 036310 112737 000040 002307 MOVB #40, CMPTBL+5 sREST OF STEP 3 COMPARE 
3217 036316 012737 000000 002300 MOV #0 ,STPTBL+6 sSTEP 4 
rie 036324 012737 040000 002310 MOV #040000, CMPTBL +6 :STEP 4 COMPARE 
3220 036332 004737 031330 JSR PC ,STEP1 :GO DO IT 
3221 036336 005737 002340 TST STEPST :IF STATUS OKAY 
aoe 036342 001412 BEQ 5$ ; THEN CONTINUE TEST 


3224 036344 ERRDF 14.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 





HARDWARE TEST 
SUBTEST 1: VECTOR AND INTERRUPT TEST 


— 


3259 


036344 
036346 
036350 
036352 
036354 
036354 
036356 
036356 
036362 
036364 
036364 
036366 


036379 
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104455 
000016 
024271 
027002 


104406 


013700 
104451 


104410 
000666 


012737 
016537 
012737 
032764 
001022 
004737 
005737 
001764 


012737 


104455 
000017 
024344 
027222 


104406 


013700 
104451 


104410 
000570 


042764 
005237 
062705 
016537 
017464 
022705 
001005 
033764 
001022 
000407 
023764 
001415 


012737 


104455 
000020 
024271 
027002 


002332 


000100 
002302 
037200 
000002 


031302 
002350 


025632 


002332 


000002 
002336 
000002 
002302 
000002 
000006 


002334 


002334 


025632 





002346 
002334 
002344 
000014 


002330 


000014 


002334 
000012 


000012 


000012 


002330 


5$: 
7$: 


9$: 


10$: 


15$: 


16$: 


CSESCAPE 
L10021-. 


#100, OUTER 
CMPTBL(RS) ,SAEXP 
#16000. , INNER 

+ le crerlcrtenions 


@LESI,FRUIS 
15.,EMSG11,PRIERR 
CSERDF 


CSCLP1 
LOGUNT 
LOGUNT ,RO 
C$D00U 
TST 
CSESCAPE 
L10021-. 


@INTFLG,LUNFLG(R4) 
INISTP 

#2,R5 
CMPTBLC(RS),SAEXP 


BTUSACR4 ), TUSASV(R4) 


6 ,RS 

15$ 
SAEXP , TUSASV(R4) 
20$ 


16$ 
SAEXP, TUSASV(R4) 
20$ 


@LESI,FRUIS 
16.,EMSG9,PRIINI 
CSERDF 

16 

EMSG9 

PRIINI 





sLOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sSET UP FOR DELAY ROUTINE 


sSET UP FOR COMPARE 
sSET UP INNER 


sIF INTERRUPT OCCURRED 
s THEN SEE IF SA IS CORRECT 
s__ELSE GIVE UUT SOME TIME 


sIF NO TIMEOUT YET 


; THEN GO TAKE ANOTHER LOOK 


sFAILING FRU 


s"EXPECTED INTERRUPT DID NOT OCCUR” 


sCLEAR THE INTERRUPT FLAG 
sADJUST THE STEP COUNTER 


sADJUST TABLE INDEX 


sGET THE COMPARISON VALUE 


sGET SA CONTENTS 
sARE WE IN STEP 4? 
sBRANCH IF NOT 


sJUST LOOK FOR STEP 4 BIT 


sIT‘S SET SO LET’S GO 
sERROR 


sIF SA IS WHAT WE EXPECT 


+ THEN MOVE ALONG 
sFAILING FRU 


:“SA CONTENTS IN ERROR” 
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SUBTEST 1: VECTOR AND INTERRUPT TEST 


036566 104406 TRAP CsCLP1 
3260 036570 DOoDU LOGUNT 
036570 013700 002332 MOV LOGUNT ,RO 
036574 104451 TRAP C$000U 
3261 036576 ESCAPE TST 
036576 104410 TRAP CSESCAPE 
036600 000454 -WORD 1L10021-. 


3263 036602 016574 002272 000002 20%: MOV STPTBLCRS) ,@TUSACR4) sWRITE NEXT STEP TO UUT 
000006 CMP 96 RS sIF NOT IN STEP 4 


aos 036614 001265 BNE 5$ :GO BACK TO MAIN LOOP 
3267 036616 032764 000001 000014 BIT @ORPFLG,LUNFLG(R4) sHAS UUT BEEN DROPPED 
3268 036624 001005 BNE TSEXT sLEAVE NOW IF SO 
3269 036626 005737 0000006 DEC ITRCNT sIF NO MORE ITERATIONS LEFT 
3270 036632 001402 BEQ TSEXT s THEN EXIT 
oars 036634 000137 036202 JMP es s ELSE DO IT AGAIN 
3273 036640 004737 031162 TSEXT: JSR PC ,RSTVEC sCATCH ILLEGAL INTERRUPTS 
3274 036644 EXIT TST 

036644 104432 TRAP CsExIT 

036646 000406 -WORD L10021-. 
3275 036650 ENDSUB 

036650 L10022: 

036650 104403 TRAP CSESUB 
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SUBTEST 2: BR LEVEL TEST 


-SBTTL SUBTEST 2: BR LEVEL TEST 


$$ SHEE SESSEESEAEEEEEEESSEEESEEESSSEEESESSKESSSESESSEASEEAEESEESEEE 
$$ OS OSSESEOESESSEESEEEEEEESESASEKEKESKSSESSEESHSEKSSKSSKAAEKEESEEEE 




































3285 3 
3286 s;SUBTEST 2 - 
3287 ’ BR LEVEL TEST 
3288 ; THIS TEST INSURES THAT THE TU81 CAN NOT INTERRUPT 
3289 : WHEN THE CPU PRIORITY IS SET TO 7. THE TEST GOES 
3290 ; ONLY THROUGH THE FIRST STEP OF THE INIT SEQUENCE 
3291 ; SINCE THE CONTROLLER WILL “HANG” WAITING FOR THE 
de $ INTERRUPT ACKNOWLEDGE. 
’ 
3294 § 3 880606666660 66 6666060666 00466 666066066 6006006086684 6664668 0684646084686 
3295 $5 50000066 0066606660666 66 6066 6606606606046 6660 464664660046604664 460660488 
3299 











3300 036652 BGNSUB 
036652 15.2: 
seee 036652 104402 TRAP C$BSUB 
3302 036654 032764 000001 000014 BIT @ORPFLG, LUNFLG(R4) sIF UUT NOT DROPPED 
3303 036662 001402 BEQ i$ s THEN DOO TEST 
3304 036664 EXIT TST s ELLE GET OUT 
036664 104432 TRAP CSEXIT 
036666 000366 -WORD 1L10021-. 
3305 036670 1s: 
3306 036670 052764 000004 000014 BIS @BRFLAG, LUNFLG(R4) 300 TEST WITH HIGH PRIORITY 
3307 036676 012737 025647 002330 MOV @CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
3308 036704 012737 000001 0000006 MOV #1, ITRCNT sSET UP FOR ONE TEST ITERATION 
3309 036712 022737 000001 002312 CMP #1 ,PASCNT sIF FIRST PASS 
3310 036720 001403 BEQ 2$ s THEN START TEST 
ay 036722 012737 000002 000000G MOV #2, ITRCNT ; ELSE DO 10 ITERATIONS 
3313 036730 106427 000340 2s: MTPS @PRIO7 sCPU PRIORITY = 7 
3314 036734 004737 031212 JSR PC, VECTOR sSET UP VECTOR WITH INTERRUPT HANDLER 
3315 036740 012705 000000 MOV @0,RS sSET UP RS AS INDEX TO STEP TABLES 
3316 036744 012737 000001 002336 MOV #1,INISTP sSTEP 1 FOR ERROR PRINTOUT 
3317 036752 016437 000004 002272 MOV TUVECC(R4), STPTBL sPUT VECTOR IN STEP 1 
3318 036760 006237 002272 ASR STPTBL sDIVIDE BY TWO 
3319 036764 006237 002272 ASR STPTBL sDIVIDE BY FOUR 
3320 036770 052737 104600 002272 BIS #104600, STPTBL sREST OF STEP ONE 
coos 036776 016437 000004 002302 MOV TUVECCR4 ), CMPTBL sSTEP 1 COMPARE VALUE 
3323 037004 004737 031330 JSR PC, ,STEP1 sGO 00 IT 
3324 037010 005737 002340 TST STEPST sIF STATUS OKAY 
i344 037014 001412 BEQ S$ s THEN CONTINUE TEST 
3327 037016 ERROF  14.,EMSG9,PRIINI :"SA CONTENTS IN ERROR” 
037016 104455 TRAP CSERDF 
037020 000016 -WORD 14 
037022 024271 -WORD EMSG9 
037024 027002 -WORD PRIINI 
3328 037026 CKLOOP sLOOP ON ERROR? 
037026 104406 TRAP CsCLP1 
3329 037030 0ODU LOGUNT sDROP WT . 
037030 013700 002332 MOV LOGUNT ,RO iz 
037034 104451 TRAP Cs000U 
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3330 037036 
037036 
037040 

3331 

3332 037042 

3333 037050 

3334 037056 

3335 037064 

3336 037070 

3337 037074 


3339 037076 
3340 037104 
3341 037112 


3343 037114 
0371146 
037116 
037120 
037122 

3344 037124 
037124 

3345 037126 
027126 
027132 

3346 037134 
037134 
037136 


3348 037140 
3349 037146 
3350 03715¢ 
3351 037156 
037156 
037160 
037162 
037164 
3352 037166 
037166 
3353 037170 
037170 
037174 
3354 037176 
037176 
037200 


3356 037202 
3357 037206 
3358 037210 
3359 037212 


3361 037220 
3362 037226 
3363 037230 
3364 037234 
3365 037236 
3366 





re 
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104410 
000214 


012737 
016537 
012737 
004737 
005737 
001770 


017464 
023764 
001412 


104455 
000021 
024271 
027002 


104406 


013700 
104451 


104410 
000116 


000100 
002302 
037200 
031302 
002350 


000002 
002334 


002332 


000002 
000002 


002332 


000000 


000002 
000001 
000000G 
036730 





002346 


000014 103: 


000014 


000014 
000014 


S$: 


78: 
93: 


208: 





TST 
CSESCAPE 
L10021-. 


#100, 0UTER 
CMPTBL(RS) ,SAEXP 
#16000. , INNER 

PC ,PDELAY 

TOUT 

7$ 


STUSACR4 ), TUSASV(R4) 


SAEXP, TUSASV(R4) 
10$ 


17. ,EMSG9, PRIINI 
CsEROF 


LOGUNT 


CSESCAPE 
L10021-. 


le recat 
$ 
@INTFLG,LUNFLG(R4) 
18. ,EMSG12,PRIINI 
CSERDF 


CSESCAPE 
L10021-. 


#PRIOO 


@INTFLG,LUNFLG(R4) 


#DORPFLG,LUNFLG(R4) 
STSEXT 

ITRCNT 

STSEXT 

23 


sLEAVE TST 


sSET UP FOR DELAY ROUTINE 
sSET UP FOR COMPARE 

sSET UP INNER 

s_ ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 

s THEN GO TAKE ANOTHER LOOK 


sGET SA CONTENTS 
sIF CONTENTS OKAY 
3 THEN CHECK FOR INTERRUPT 


:"SA CONTENTS IN ERROR” 


sIF NO INTERRUPT OCCURRED 

;_ THEN CARRY ON WITH TEST 

sCLEAR FLAG IN CASE WE'RE LOOPING 
s"INTRRPT WITH CPU PRIORITY =7" 


sCPU PRIORITY = 0 


sDELAY FOR PENDING INTERRUPT 
sCLEAR THE FLAG NOW 


sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 

3IF NO MORE ITERATIONS LEFT 
; THEN EXIT 

s ELSE DO IT AGAIN 
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3367 
3368 


3369 
3370 


3371 
3372 


037242 
037246 
037246 
037250 


037252 
037252 
037252 


037254 
037254 
037254 


004737 031162 


104432 
000004 


104403 


104401 





a a ES 
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STSEXT: JSR PC ,RSTVEC sCATCH ILLEGAL INTERRUPTS 
EXIT TST 


TRAP CSExIT 
WORD L10021-. 


ENOSUB 
TRAP CsESUB 
ENDTST 
TRAP CSETST 


L10023: 


L10021: 





HARDWARE TEST 
TEST 6: 


037256 
037256 
027256 
027256 
037256 


037260 
037266 
037270 
037270 
037272 
037274 
037302 
037310 
037216 
037320 


037326 
037332 
037340 
037346 
037352 
037356 
037364 
037372 


037400 
037406 
037414 
037422 
037430 
037436 


037444 
037452 





104402 


032764 
001402 


104432 
001406 
012737 
012737 
022737 
001403 
012737 


012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 


012737 
012737 
012737 
112737 
012737 
012737 


012737 
004737 


000001 


000022 
031426 





—_———— 
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000014 


002330 
000000G 
002312 


000000G 


002336 
002272 


002306 
002272 
002302 


002274 
002304 
002276 
002307 
002300 
002310 


002326 


-SBTTL TEST 6: 
-SBTTL SUBTEST 1: PURGE AND POLL TEST 


FF PORES AEESEEAEEEESERESSEEAEAEEEEEEEEEEEREEDE EEE EE EREEEEEEEEEES 
FF POSKASEEEAESASESALASESESEAEREEAEREREESAEAREAEEERERERERERAE REEDS 


; 
sSUBTEST 6 - PURGE AND POLL TEST 

THIS TEST WILL AGAIN RUN THROUGH THE INIT SEQUENCE, THIS 
TIME SETTING THE “PURGE AND POLL” BIT IN STEP 3. THIS 
SHOULD CAUSE THE PORT TO DMA VARIOUS DATA PATTERNS TO 
AND FROM THE COMMUNICATIONS AREA AND FINALLY LEAVE IT 
CLEARED BEFORE TRANSITIONING TO STEP 4. THE PROGRAM WILL 
HAVE FILLED THIS AREA WITH A BACKGROUND PATTERN OF ALL 
1'S DATA PRIOR TO STARTING THE INIT. WHNE STEP 4 IS 
REACHED, THE PROGRAM WILL VERIFY THAT THE COMM AREA IS 
ALL 0'S, AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
THE COMM AREA ARE UNTOUCHED. 


3 
FF OPERAS EAEAE EAE ASEEEAEEEEAEAAEEEEREAREAEREAREEARERAEAEEREDERES 
FF PASS REAESESEAEAAESEEEAEEEEEAAASAE EA SEAEERERAAEALERERAEAEEEELELES 


BGNTST 
T6:: 
BGNSUB 
T6.1: 
TRAP CsBSUB 
BIT #DRPFLG,_LUNFLG(R4) ;IF UUT NOT DROPPED 
BEQ i$ ; THEN DO TEST 
EXIT TST ; ELSE GET OUT 
TRAP CSEXIT 
-WORD L10024-. 
1$: MOV #CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 
BEQ 2s ; THEN START TEST 
MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
2s: MOV #0,R5 sSET UP RS AS INDEX TO STEP TABLES 


MOV #1, INISTP sSTEP 1 FOR ERROR PRINTOUT 
MOV TUVECCR4), STPTBL sPUT VECTOR IN STEP 1 
ASR STPTBL sDIVIDE BY TWO 
ASR STPTBL sDIVIDE BY FOUR 
MOV STPTBL ,CMPTBL+4 sPUT VECTOR IN STEP 3 COMPARE 
BIS #111000, STPTBL sREST OF STEP ONE 
MOV #6 .S1!B.QB8!8.01!8.00!8.MP,CMPTBL 
sSTEP 1 COMPARE VALUE 


MOV @COMMAR , STPTBL +2 sSTEP 2 - COMM AREA ADDRESS 

MOV #010222, CMPTBL+2 sSTEP 2 COMPARE 

MOV 0B .PP,STPTBL +4 sSTEP 3 - HIGH ADDRESS AND PRGE/POLL 
MOVB #40, CMPTBL +5 sREST OF STEP 3 COMPARE 

MOV #0, STPTBL+6 sSTEP 4 

MOV #040000, CMPTBL +6 sSTEP 4 COMPARE 


MOV #18. ,CMARLG 
JSR PC ,BAKPAT 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1’‘S DATA 








es 
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3433 
3434 
3435 
3436 
3437 


3438 
3439 


3440 


3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 


3461 
3462 


3463 


3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 


037456 
037462 
037466 


037470 
037470 
037472 
037474 
037476 
037500 
037500 
037502 
037502 
037506 
037510 
037510 
037512 


037514 
037520 
037524 
037532 
037540 
027546 
037554 
037560 
037562 
037570 
037572 
037574 
037602 
037604 
037610 
037614 


037616 
037624 
037624 
037626 
037630 
037632 
037634 
037634 
037636 
037636 
037642 
037644 
037644 
037646 


037650 
037656 
037662 
037664 
037670 
037672 








MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 71-1 
SUBTEST 1: PURGE AND POLL TEST 


004737 
005737 
001412 


104455 
000023 
024271 
027002 


104406 


013700 
104451 


104410 
001166 


005237 
062705 
012737 
016537 


012737 


104455 
000024 
024271 
027002 


104406 


013700 
104451 


104410 
001032 


016574 
022705 
001404 
022705 
001311 
000440 


031330 
002340 


002332 


002334 


031302 
002350 


025632 


002332 


002272 
000004 


000006 





002346 
002334 
002344 
000012 


000012 


000012 


002330 


000002 10%: 


5$: 
6$: 
7$: 


8$: 
9$; 


PC ,STEP1 
STEPST 
S$ 


19. ,EMSG9, PRIINI 
CSERDF 

19 

EMSG9 

PRIINI 


CSCLP1 
LOGUNT 
LOGUNT ,RO 
Cs000U 
TST 
CSESCAPE 
L10024-. 


INISTP 

#2,R5 

#100, OUTER 
CMPTBLC(RS),SAEXP 
#16000. , INNER 
STUSACR4 ), TUSASV(R4) 


8$ 
SAEXP, TUSASV(R4) 
10$ 


9$ 
SAEXP, TUSASV(R4) 
10$ 


PC ,PDELAY 
TOUT 
7$ 


#LESI,FRUIS 

20. ,EMSG9, PRIINI 
CSERDF 

20 


EMSG9 
PRIINI 


CSCLP1 
LOGUNT 
LOGUNT ,RO 
C$D0DU 
TST 
CSESCAPE 
L10024-. 


STPTBLCRS),@TUSACR4) 
#4,R5 
15$ 

#6,R5 

5$ 


:GO DO IT 
sIF STATUS OKAY 
s THEN CONTINUE TEST 


;"SA CONTENTS IN ERROR” 


sLOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sADJUST STEP COUNTER 
sADJUST TABLE INDEX 

sSET UP FOR DELAY ROUTINE 
SET UP FOR COMPARE 

;SET UP INNER 

sGET SA CONTENTS 

sARE WE IN STEP 4? 

sBRANCH IF NOT 

sJUST LOOK FOR STEP 4 BIT 
;IT‘S SET SO LET'S GO 
sSTAY IN LOOP OTHERWISE 
sIF SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

s__ ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


sFAILING FRU 
;"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 
sIF STEP 3 

;__ THEN DO PURGE/POLL STUFF 
sIF NOT IN STEP 4 

+ THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 








HARDWARE TEST 


3473 
3474 
3475 
3476 


3477 
3478 


3479 


3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 


3493 


037674 
037700 
037702 
037706 
037710 
037714 
037716 
037722 
037724 
037732 


037734 
037734 
037736 
037740 
037742 
037744 
037744 
037746 
037746 
037752 
037754 
027754 
037756 


037760 
037766 
037772 


037774 
040000 
040006 
040010 
040014 
040016 


040022 
040022 
040024 
040026 
040026 
040026 
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SUBTEST 1: PURGE AND POLL TEST 


3472 037674 


012727 
000000 


027002 
104406 


013700 
104451 


104410 
000722 


012774 
005774 
000650 


004737 
032764 
001005 
005337 
001402 
000137 


104432 
000654 


104403 





000001 
002116 
177772 
177756 


000002 000012 


002332 


000000 
000000 


000002 


031456 
000001 000014 


000000G 
037326 


15$: 


16$: 


20$: 


T6EXT: 


L10025: 


Page 71-2 


1 
— 
a 


STUSACR4), TUSASV(R4) 
16$ 


21.,EMSG13,PRIINI 
CSERDF 


21 
EMSG13 
PRIINI 


CsCLP1 
LOGUNT 
LOGUNT ,RO 
C$D0DuU 
TST 
CSESCAPE 
L10024-. 


#0, ATUSACR4) 
aaa 


PC ,CHKCOM 

#DRPFLG, LUNFLGC(R4) 
T6EXT 

ITRCNT 

T6EXT 

2$ 


TST 


CSEXIT 
L10024-. 


CSESUB 


sGIVE PORT SOME TIME 


sGET SA CONTENTS 
sBRANCH IF OKAY 


sSA NOT O IN PURGE/POLL 


sWRITE O'S TO SA 
sAND READ IP 


sGO WAIT FOR NEXT TRANSITION 


sGO CHECK COMM AREA 
sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 


;IF NO MORE ITERATIONS LEFT 


; THEN LEAVE TEST 
; ELSE DO IT AGAIN 





SEQ 96 





HARDWARE TEST 
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SUBTEST 2: EXTENDED ADDRESS TEST 


040316 
040320 


104402 


032764 
001407 


104432 
000634 
005737 
001002 


104432 
000622 
012737 
012737 
022737 
001403 
012737 


004737 
012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 


012737 
042737 


012737 
013737 
113737 
006237 
006237 
052737 
112737 
012737 
012737 


012737 
004737 


004737 
005737 
001412 


104455 
000031 
024271 
027002 


000001 


002314 


025647 
000001 
000001 


000012 


031616 
000000 


010222 
172346 
002353 
002276 
002276 
100000 
000040 
000000 
040000 


000022 
031426 


031330 
002340 





000014 


002330 
000000G 
002312 
000000G 


002336 
002272 


002306 
002272 
002302 


002274 
002274 


002304 
002352 
002276 


002276 
002307 
002300 
002310 


002326 


-SBTTL SUBTEST 2: EXTENDED ADDRESS TEST 


T6.2: 


1s: 


2s: 
3$: 


BGNSUB 


C$BSUB 


ne 


L10024-. 
#CTRL,FRUIS 
#1,ITRCNT 
#1,PASCNT 
2s 

#10. ,ITRCNT 


PC, INTMMU 

#0,R5 

#1, INISTP 
TUVECC(R4), STPTBL 
STPTBL 


STPTBL 
STPTBL ,CMPTBL+4 
#111000, STPTBL 





sIF _UUT NOT DROPPED 
; THEN DO TEST 
; ELSE GET OUT 


sIF MEMORY MANAGEMENT AVAILABLE 
; THEN DO TEST 
; ELSE GET OUT 


sFAILING FRU IN CASE OF ERROR 
sSET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


sINITIALIZE MMU REGISTERS 

sSET UP RS AS INDEX TO STEP TABLES 
sSTEP 1 FOR ERROR PRINTOUT 

sPUT VECTOR IN STEP 1 

sDIVIDE BY TWO 

sDIVIDE BY FOUR 

;PUT VECTOR IN STEP 3 COMPARE 
sREST OF STEP ONE 


#6 .S1!B8.QB8!B.01!B.00!B.MP,CMPTBL 


#COMMAR, STPTBL +2 


sSTEP 1 COMPARE VALUE 
sSTEP 2 - COMM AREA ADDRESS 


#BIT15!B1T14!BIT13,STPTBL+2 


#010222, CMPTBL+2 
KPAR3, TEMP 

TEMP +1,STPTBL+4 
STPTBL +4 
STPTBL +4 
#B.PP,STPTBL+4 
#40,CMPTBL+5 
#0,STPTBL+6 
#040000, CMPTBL +6 


#18. ,CMARLG 
PC ,BAKPAT 


PC, ,STEP1 
STEPST 
5$ 


25.,EMSG9, PRIINI 
CSERDF 

25 

EMSG9 

PRIINI 


s;CLEAR THE ACTIVE PAGE FIELD 
;STEP 2 COMPARE 

;GET RELOCATION VALUE 

;JUST THE HGH BYTE 

sMAKE IT THE EXTENDED 

; ADDRESS OF THE COMM AREA 
sNOW SET PURGE/POLL BIT 
sREST OF STEP 3 COMPARE 
sSTEP 4 

;STEP 4 COMPARE 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1‘S DATA 


GO DO IT 
sIF STATUS OKAY 
; THEN CONTINUE TEST 


;"SA CONTENTS IN ERROR” 





- 





HARDWARE TEST 
SUBTEST 2: EXTENDED ADDRESS TEST 


3543 
3544 


3545 


3577 


040322 
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CKLOOP 
104406 TRAP CSCLP1 

DODU LOGUNT 
013700 002332 MOV LOGUNT ,RO 
104451 TRAP Cs000U 

ESCAPE TST 
104410 TRAP CSESCAPE 
000344 -WORD L10024-. 
005237 002336 S$: INC INISTP 
062705 000002 ADD #2 ,R5 
012737 000100 002346 6%: MOV #100 ,OUTER 
016537 002302 002334 MOV CMPTBLC(RS),SAEXP 
012737 037200 002344 7$: MOV #16000. , INNER 
017464 000002 000012 MOV STUSACR4 ), TUSASV(R4) 
022705 000006 CMP #6 RS 
001005 BNE 8$ 
033764 002334 000012 BIT SAEXP, TUSASV(R4) 
001024 BNE 10$ 
000404 BR 9$ 
023764 002334 000012 8$: CMP SAEXP , TUSASV(R4) 
001417 BEQ 10$ 
004737 031302 9$: JSR PC ,PDELAY 
005737 002350 TST TOUT 
001751 BEQ 7$ 

ERRDF 26.,EMSG9,PRIINI 
104455 TRAP CSERDF 
000032 -WORD 26 
024271 -WORD EMSG9 
027002 -WORD  PRIINI 

CKLOOP 
104406 TRAP CsCLP1 

DODU LOGUNT 
013700 002332 MOV LOGUNT ,RO 
104451 TRAP CsD0DuU 

ESCAPE TST 
104410 TRAP CSESCAPE 
000216 -WORD L10024-. 
016574 002272 000002 10%: MOV STPTBLCRS) ,@TUSACR4) 
022705 000004 CMP #4 ,R5 
001404 BEQ 15$ 
022705 000006 CMP #6 ,RS 
001314 BNE 5$ 
000440 BR 20$ 

15$: DELAY 1 

012727 000001 MOV #1,0PC)+ 
000000 -WORD 0 
013727 002116 MOV L$DLY,(PC)+ 
000000 -WORD 0 
005367 177772 DEC -6(PC) 
001375 BNE -4 
005367 177756 DEC -22(PC) 
001367 BNE --20 
017464 000002 000012 MOV A@TUSACR4), TUSASV(R4) 


—————— ce 


SEQ 98 


sLOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sADJUST 
sADJUST 
:SET UP 
sSET UP 
;SET UP 
;GET SA 


STEP COUNTER 

TABLE INDEX 

FOR DELAY ROUTINE 
FOR COMPARE 

INNER 

CONTENTS 

sARE WE IN STEP 4? 

sBRANCH IF NOT 

sJUST LOOK FOR STEP 4 BIT 
sIT'S SET SO LET'S GO 
sSTAY IN LOOP OTHERWISE 
sIF SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


:"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 
sIF STEP 3 


;__THEN DO PURGE/POLL STUFF 
sIF NOT IN STEP 4 

; THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 


sGIVE PORT SOME TIME 


sGET SA CONTENTS 





HARDWARE TEST 
SUBTEST 2: EXTENDED ADDRESS TEST 


3578 
3579 
3580 


3608 
3609 


040546 
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001412 


012774 
005774 
000653 


004737 
032764 
001021 


062737 
103406 
023737 
103402 
000137 


005037 
005337 
001402 
000137 
005037 


104432 
000004 


104403 


104401 





002332 


000000 000002 16%: 


000000 


031456 
000001 


208: 
000014 


172346 
172346 


002000 
002120 
040116 


177572 
000000G 


040112 
177572 


25$: 


ST6EXT: 


E 
L10026: . 


L10024: 





ENDTST 
TRAP 





16$ sBRANCH IF OKAY 

27.,EMSG13 ,PRIINI sSA NOT 0 IN PURGE/POLL 
CSERDF 

27 

EMSG13 

PRIINI 

CsCLP1 

LOGUNT 

LOGUNT ,RO 

CsD0DU 

TST 

CSESCAPE 

L10024-. 

#0 , 8TUSACR4) sWRITE O'S TO SA 

STUIPCR4) sAND READ IP 

5$ :GO WAIT FOR NEXT TRANSITION 
PC ,CHKCOM sGO CHECK COMM AREA 

#DRPFLG, LUNFLG(R4) sHAS UUT BEEN DROPPED 

ST6EXT sLEAVE NOW IF SO 

#2000, KPAR3 sPOINT TO NEXT 32KWORDS 

25$ sDON‘T ALLOW OVERFLOW IF 4 MBYTES 
L$HIME ,KPAR3 ;IF_ THERE'S NO MORE MEMORY AVAILABLE 
25$ ; THEN CHECK FOR MORE ITERATIONS 
3$ ; ELSE DO IT AGAIN 

MMUSRO sSHUT DOWN MEMORY MANAGEMENT 
ITRCNT sIF NO MORE ITERATIONS LEFT 
ST6EXT ; THEN LEAVE TEST 

2s ; ELSE DO IT AGAIN 

MMUSRO sMAKE SURE IT'S OFF 

TST 

CSEXIT 

L10024-. 

CSESUB 

CSETST 





HARDWARE TEST 


3666 


041122 
041124 
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032764 
001402 


104432 
000526 
012737 
012737 
022737 
001403 
012737 


012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 


012737 
012737 
012737 
112737 
012737 
012737 


012737 
004737 


004737 
005737 
001412 


104455 
000023 
024271 
027002 


104406 


000001 


000012 
031426 


031330 
002340 

























-SBTTL TEST 7: SMALL RING TEST 


of SRRAEAAEEEEEARERAEEAEAAEEAAEAEEARAAARASEARERASREAEREEEREREREREERS 
§ 5 SRRREREEEEEEEEEAAEAEAAAAERAREEEAAREAEREAAAEREARALARARREARAEEEEL 


; 

sTEST 7 - SMALL RING TEST 

; THIS TEST IS SIMILAR TO TEST 6, HOWEVER, RING DEPTH 
' USED IN THIS TEST IS THE MINIMUM. 


a 
5 F SERREAEAAEEE ESAS EEEAAEEAAAAEEAEAERAREERERAREAREARA ERASE RRERE 
5s REREEAEEREEREREEAEAERAEAEREAAAEEEAEEEAERAAEEEAEASAEARARALALALE LEAL 


BGNTST 
T7:: 
000014 BIT #DRPFLG,LUNFLG(R4) :IF UUT NOT DROPPED 
BEQ i$ ; THEN DO TEST 
EXIT TST ; ELSE GET OUT 
TRAP CSEXIT 
-WORD 1L10027-. 
002330 1%: MOV #CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
000000G MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
002312 CMP #1,PASCNT 3;IF FIRST PASS 
BEQ 2$ ; THEN START TEST 
000000G MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
2s: MOV #0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
002336 MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
002272 MOV TUVECC(R4), STPTBL ;PUT VECTOR IN STEP 1 
ASR STPTBL ;DIVIDE BY TWO 
ASR STPTBL ;DIVIDE BY FOUR 
002306 MOV STPTBL ,CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
002272 BIS #104400, STPTBL sREST OF STEP ONE 
002302 MOV #6 .S1!8.QB8!B.01!8.00!8.MP,CMPTBL 
sSTEP 1 COMPARE VALUE 
002274 MOV #COMMAR, STPTBL +2 sSTEP 2 - COMM AREA ADDRESS 
002304 MOV #010211, CMPTBL+2 sSTEP 2 COMPARE 
002276 MOV #B.PP,STPTBL+4 sSTEP 3 - HIGH ADDRESS AND PRGE/POLL 
002307 MOVB #40, CMPTBL+5 sREST OF STEP 3 COMPARE 
002300 MOV #0,STPTBL+6 sSTEP 4 
002310 MOV #040000, CMPTBL +6 ;STEP 4 COMPARE 
002326 MOV #10. ,CMARLG ;LENGTH OF COMM AREA FOR THIS TEST 
JSR PC ,BAKPAT ;FILL COMM AREA WITH ALL 1’S DATA 
JSR PC STEP :GO DO IT 
TST STEPST :IF STATUS OKAY 
BEQ 5$ ; THEN CONTINUE TEST 
ERRDF 19.,EMSG9, PRIINI ;"SA CONTENTS IN ERROR” 
TRAP CSERDF 
«WORD 19 
-WORD EMSG9 
-WORD PRIINI 
CKLOOP ;LOOP ON ERROR? 
TRAP CSCLPi 
DODU LOGUNT ;DROP UUT 


HARDWARE TEST 


TEST 7: 


3699 
3700 
3701 
3702 





SMALL RING TEST 


041124 013700 
041130 104451 


104410 
000306 


013700 
104451 


104410 
000160 


016574 
022705 
001404 
022705 
001314 
000440 


041262 


041264 
041272 
041276 
041300 
041304 
041306 


041310 
041310 
041314 
041316 
041322 
041324 
041330 
041332 
041336 
041340 
041346 


041350 


012727 
000000 


002332 


002334 


031302 
002350 


002332 


002272 
000004 


0000066 


000001 
002116 
177772 
177756 
000002 





002346 
002334 
002344 
000012 


000012 


000012 


000002 


000012 


S$: 
6$: 
7$: 


8$: 
9$: 


10$: 


15$: 
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L10027-. 


INISTP 

#2,R5 

#100 ,QUTER 
CMPTBLCRS) , SAEXP 
#16000. , INNER 
ae eoeaiataata 


8s 
SAEXP , TUSASV(R4) 
10$ 


9$ 

SAEXP, TUSASV(R4) 
10$ 

PC ,PDELAY 

TOUT 

7$ 


20. ,EMSG9, PRIINI 
CSERDF 
20 


EMSG9 
PRIINI 
CsCLP1 
LOGUNT 
LOGUNT ,RO 
CsD0D0uU 
TST 
CSESCAPE 
L10027-. 


STPTBLCRS) ,@TUSACR4) 
#4,R5 


1 

eee 

eae 

-6(PC) 

74 

-22(PC) 

.-20 

STUSACR4), TUSASV(R4) 
16$ 


21.,EMSG13,PRIINI 





sLEAVE TST 


sADJUST STEP COUNTER 
sADJUST TABLE INDEX 

sSET UP FOR DELAY ROUTINE 
sSET UP FOR COMPARE 

sSET UP INNER 

sGET SA CONTENTS 

sARE WE IN STEP 4? 

sBRANCH IF NOT 

sJUST LOOK FOR STEP 4 BIT 
sIT‘S SET SO LET’S GO 
sSTAY IN LOOP OTHERWISE 
sIF SA IS WHAT WE EXPECT 

s THEN MOVE ALONG 

s__ELSE GIVE UUT SOME TIME 
sIF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


:"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 
sIF STEP 3 

;__ THEN DO PURGE/POLL STUFF 

sIF NOT IN STEP 4 

; THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 


sGIVE PORT SOME TIME 


sGET SA CONTENTS 
sBRANCH IF OKAY 


sSA NOT O IN PURGE/POLL 





HARDWARE TEST 


TEST 7: SMALL RING TEST 


041350 


3707 041374 
3708 041402 
3709 041406 


3711 041410 
3712 041414 
3713 041422 
3714 041424 
3715 041430 
3716 041432 


3718 041436 
041436 
041440 


3720 041442 
041442 
041442 


-— 
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012774 
005774 
000653 


004737 
032764 
001005 
005337 
001402 
000137 


104432 
000002 


104401 





002332 


000000 000002 
000000 


031456 
000001 000014 
000000G 
040750 


16$: 


T7EXT: 


L10027: 


ENDTST 
TRAP 


Page 75-2 


CSESCAPE 
L10027-. 


#0, @TUSACR4) 
ss 


PC ,CHKCOM 
@DRPFLG, LUNFLG(R4) 
T7EXT 


CSEXIT 
L10027-. 


CSETST 





sWRITE O'S TO SA 
sAND READ IP 
sGO WAIT FOR NEXT TRANSITION 


sGO CHECK COMM AREA 


sHAS UUT BEEN DROPPED 


sLEAVE NOW IF SO 


sIF NO MORE ITERATIONS LEFT 


s THEN LEAVE TEST 
s ELSE DO IT AGAIN 








TEST 


3747 041600 
3748 041606 
3749 041614 
3750 041622 
3751 

3752 041630 
3753 041636 
3754 

3755 041642 
3756 041646 
3757 041652 


3764 041700 
3765 041704 
3766 041710 
3767 041716 


r- 


MACRO YOS. 


032764 
001402 


104432 
000526 
012737 
012737 
022737 


001403 
012737 


012737 


012737 
012737 
012737 
112737 
012737 
012737 


012737 
004737 


012737 
016537 


000001 


002332 


000100 
002302 


-SBTTL TEST 8: MAXIMUM RING BUFFER TEST 


T8:: 


000014 


002330 1%: 
000000G 


002312 


23: 


5$: 
002346 6%: 


002334 


BGNTST 








HARDWARE Thursday 25-Jul-85 16:53 P. 77 
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2s 
#10. ,ITRCNT 


0 ,RS 

#1, INISTP 
TUVECCR4), STPTBL 
STPTBL 


STPTBL 
STPTBL ,CMPTBL +4 
137400, STPTBL 


> Yaltenmarhnecanie 


sIF_UUT NOT DROPPED 
s THEN DO TEST 
s ELSE GET OUT 


sFAILING FRU IN CASE OF ERROR 
sSET UP FOR ONE TEST ITERATION 
sIF FIRST PASS 

s THEN START TEST 

s ELSE DO 10 ITERATIONS 


sSET UP RS AS INDEX TO STEP TABLES 
sSTEP 1 FOR ERROR PRINTOUT 

sPUT VECTOR IN STEP 1 

sDIVIDE BY TWO 

sDIVIDE BY FOUR 

sPUT VECTOR IN STEP 3 COMPARE 
sREST OF STEP ONE 


06 .S1!6.Q8!8.01!6.00!8.mMP,CMPTBL 


@COMMAR , STPTBL +2 
#010277, CMPTBL +2 
08 .PP,STPTBL +4 
#40, CMPTBL +5 
#0.STPTBL+6 
#040000, CMPTBL +6 


#514. , CMARLG 
PC ,BAKPAT 


PC ,STEP1 
STEPST 
S$ 


22.,EMSG9, PRIINI 
ERDF 


INISTP 

#2,R5 

#100,0UTER 
CMPTBL(RS) ,SAEXP 


sSTEP 1 COMPARE VALUE 

sSTEP 2 - COMM AREA ADDRESS 

sSTEP 2 COMPARE 

sSTEP 3 - HIGH ADDRESS AND PRGE/POLL 
a 2 OF STEP 3 COMPARE 

5 

sSTEP 3 COMP ARE 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1‘S DATA 


sGO 00 IT 
sIF STATUS OKAY 
s THEN CONTINUE TEST 


:"SA CONTENTS IN ERROR” 


sLOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sADJUST STEP COUNTER 
sADJUST TABLE INDEX 
sSET UP FOR DELAY ROUTINE 
sSET UP FOR COMPARE 


SEQ 103 
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TEST 8: MAXIMUM RING BUFFER TEST 


SEQ 104 


-— 


3768 041724 012737 037200 002344 7%: MOV #16000. , INNER sSET UP INNER 
3769 041732 017464 000002 000012 MOV GTUSACR4 ), TUSASV(R4) sGET SA 
3770 041740 022705 000006 CMP #6 .RS sARE WE IN STEP 47 
3771 041744 1005 BNE 8$ sBRANCH IF NOT 
3772 041746 033764 002334 000012 BIT SAEXP , TUSASV(R4) JUST LOOK FOR STEP 4 BIT 
3773 041754 001024 ‘BNE 10$ sIT’S SET SO LET‘S GO 
3774 041756 000404 BR 9$ sSTAY IN LOOP OTHERWISE 
3775 041760 023764 002334 000012 8%: CMP SAEXP , TUSASV(R4) sIF SA IS WHAT WE EXPECT 
3776 041766 001417 BEQ 10$ s THEN MOVE ALONG 
3777 041770 004737 031302 9$: JSR PC ,PDELAY : ELSE GIVE UUT SOME TIME 
3778 041774 005737 002350 TST TOUT sIF NO TIMEOUT YET 
lheg 042000 001751 BEQ 7$ s THEN GO TAKE ANOTHER LOOK 
3781 042002 ERRDF 23.,EMSG9,PRIINI :"SA CONTENTS IN ERROR” 
042002 104455 TRAP CSERDF 
042004 000027 -WORD 23 
042006 024271 -WORD EMSG9 
042010 027002 -WORD  PRIINI 
3782 042012 CKLOOP 
0420 104406 TRAP CSsCLPi 
3783 042014 0ODU LOGUNT 
042014 013700 002332 MOV LOGUNT ,RO 
0420. 104451 TRAP cs 
3784 042022 ESCAPE TST 
042022 104410 TRAP CSESCAPE 
5708 042024 000160 -WORD 110030- 
3786 042026 016574 002272 000002 10%: MOV STPTBLCRS) ,@TUSACR4 ) sWRITE NEXT STEP TO UUT 
3787 042034 022705 000004 CMP 04,R5 sIF STEP 3 
3788 042040 001404 BEQ 15$ ; THEN DO PURGE/POLL STUFF 
3789 042042 022705 000006 CMP 06 RS sIF NOT IN STEP 4 
3790 042046 001314 BNE S$ s THEN GO BACK TO MAIN LOOP 
de 042050 BR 20% s ELSE GO CHECK RESULTS 
3793 042052 158: DELAY 1 sGIVE PORT SOME TIME 
042052 012727 000001 MOV 1,(PC)+ 
042056 000000 -WORD 0 
042060 013727 002116 MOV LSOLY,CPC)+ 
042064 000000 -WORD 0 
042066 005367 177772 DEC -6(PC) 
042072 001375 BNE 7-4 
042074 005367 177756 DEC -22(PC) 
042100 001367 BNE .-20 
3794 042102 017464 000002 000012 MOV SBTUSACR4 ), TUSASV(R4) sGET SA CONTENTS 
or 042110 001412 BEQ 16$ sBRANCH IF OKAY . 
3797 042112 ERROF  24.,EMSG13,PRIINI sSA NOT O IN PURGE/POLL 
042112 104455 TRAP CSEROF 
042114 000030 -WORD 24 
042116 024454 -WORD EMSG13 
0421 027002 -WORD  PRIINI 
3798 042122 CKLOOP 
042122 104406 TRAP CscLPi 
3799 042124 DODU LOGUNT 
0421 013700 002332 MOV LOGUNT ,RO 
042130 104451 TRAP Cs000uU 
3800 042132 ESCAPE TST 








-- 


HARDWARE TEST 
TEST 8: MAXIMUM 


042132 
042134 


3802 042136 
3803 042144 
3804 042150 


3806 042152 
3807 042156 
3808 042164 
3809 042166 
3810 042172 
3811 042174 


3813 042200 
042200 
042202 


3915 042204 
042204 
042204 
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RING BUFFER TEST 


104410 
000050 


012774 
005774 
000653 


004737 
032764 
001005 
005337 
001402 
000137 


104432 
000002 


104401 
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000000 
000000 


031456 
000001 
000000G 
041512 





000002 


000014 


16$: 


208: 


TBEXT: 


L10030: 


TRAP 
- WORD 


ENDTST 
TRAP 





CSESCAPE 
L10030-. 


00, ATUSACR4) 
ppc 


PC .CHKCOM 
@ORPFLG,LUNFLG(R4) 
T8EXT 

ITRCNT 

T8EXT 

2s 


TST 


CSEXxIT 
L10030-. 


CSETST 








SEQ 105 


sWRITE O'S TO SA 
sAND READ IP 
sGO WAIT FOR NEXT TRANSITION 


sGO CHECK COMM AREA 

sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 

sIF_ NO MORE ITERATIONS LEFT 
; THEN LEAVE TEST 

s ELSE 00 IT AGAIN 


- 


HARDWARE TEST 


TEST 9:GET DUST STATUS 


3821 042206 

042206 
3822 042206 
3823 042214 
3824 042216 
3825 042224 
3826 042230 
3827 042234 
3828 042242 
3829 042244 
3830 042252 
3831 042256 
3832 042262 

042262 

042264 
3333 042266 

042266 

042266 





000001 


025647 
000014 
031716 
000001 


000010 
002370 
032350 





——— rr 
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000014 
002330 


000014 
000014 


-SBTTL TEST 9:GET DUST STATUS 


T9:: 


T9EXT: 


L10031: 
T 


BGNTST 


@DRPFLG, LUNFLG(R4) 
T9EXT 

eCTRL,FRUIS 
LUNFLG(R4) 

PC ,PRTINT 
OORPFLG,LUNFLG(R4) 
T9EXT 
@TEST.9,LUNFLG(R4) 
#GDUST RS 

PC, ,CLSORV 

TST 

CSEXIT 

L10031-. 


CSETST 






sIS THE DRIVE AVAILABLE 
sGET OUT IF NOT AVAILABLE 
sDEFAULT FRU IS CONTROLLER 
sCLEAR ALL FLAGS 
sGO DO A PORT INITIALIZE 
sIS THE ORIVE AVAILABLE 
sNO, BRANCH TO EXIT 
sSET TEST 9 FLAG 
sSET UP TO DO GET DUST STATUS COMMAND 
GO ISSUE THE COMMAND 


EE 
SEQ 107 
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TEST 10: FUNCTIONAL FAULT DETECTION TEST (Internal Drive Test 


ney -SBTTL TEST 10: FUNCTIONAL FAULT DETECTION TEST (Internal Drive Test 1) 
6 
3837 042270 BGNTST 
042270 T10:: 
3838 042270 032764 000001 000014 BIT @DORPFLG,LUNFLG(R4) sIS THE ORIVE AVAILABLE 
3839 042276 001062 BNE TLOEXT sNO, BRANCH TO EXIT 
3840 042300 MANUAL sMANUAL INTERVENTION ALLOWED ? 
042300 104450 TRAP CS$MANI 
3841 042302 BNCOMPLETE TLOEXT sNO, BRANCH TO EXIT 
042302 103060 BCC TLOEXT 
3842 042304 1$: PRINTF #@T1OMS1 sPRINT TEST 10 MESSAGE 
042304 012746 025724 MOV @T10MS1, -(SP) 
042310 012746 000001 MOV #1,-(SP) 
042314 010600 MOV SP ,RO 
042316 104417 TRAP CSPNTF 
042320 062706 000004 ADD 04,SP 
3843 042324 PRINTF #@T1OMS2 s;PRINT TEST 10 MESSAGE 
042324 012746 026032 MOV #T10MS2, -( SP) 
042330 012746 000001 MOV #1,-(SP) 
042334 019600 MOV SP ,RO 
0462336 1 17 TRAP CSPNTF 
042340 06<.06 000004 ADD 04,SP 
3844 042344 PRINTF #T10MS3 sPRINT TEST 10 MESSAGE 
042344 012746 026057 MOV #T10MS3, -( SP) 
042350 012746 000001 MOV #1,-(CSP) 
042354 010600 MOV SP ,RO 
042356 104417 TRAP CSPNTF 
042360 062706 000004 ADD $4,SP 
3845 042364 PRINTF #T10MS4 sPRINT TEST 10 MESSAGE 
0423 012746 026134 MOV #T10MS4, -( SP) 
042370 012746 000001 MOV #1,-(SP) 
042374 010600 MOV SP ,RO 
042376 104417 TRAP CS$PNTF 
042400 062706 000004 ADD #4,SP 
3846 042404 GMANIL QUESTN,ANSWER,1, YES :GET OPERATOR INPUT 
042404 104443 TRAP C$GMAN 
042406 000404 BR 10000$ 
042410 002354 WORD ANSWER 
042412 000130 -WORD TSCODE 
042414 026716 »WORD QUESTN 
042416 000001 . WORD 1 
042420 10000$: 
3847 042420 005737 002354 TST ANSWER ;DID OPERATOR ANSWER YES ? 
3848 042424 001407 BEQ TLOEXT 3NO, BRANCH TO EXIT 
3849 042426 005037 002354 CLR ANSWER ;CLEAR OPERATOR ANSWER 
3850 042432 112737 000061 002424 MOVB #61, TSTNAM ;LOAD DRIVE TEST NAME CASCII 1) 
$851 042440 004737 032150 JSR PC ,DRVTST ;GO RUN THE INTERNAL DRIVE TEST 
3852 042444 TLOEXT: EXIT TST 
042444 104432 TRAP CSEXIT 
042446 000002 . WORD L10032-. 
3853 042450 ENDTST 
042450 L10032: 
042450 104401 TRAP CSETST 
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TEST 11: TENSION FAULT ISOLATION TEST (Internal Drive Test 2) 











sens -SBTTL TEST 11: TENSION FAULT ISOLATION TEST (Internal Drive Test 2) 
6 
3857 042452 BGNTST 
042452 Tll:: 
3858 042452 032764 000001 000014 BIT #DRPFLG,LUNFLG(R4) :IS THE ORIVE AVAILABLE 
3859 042460 001042 BNE TL1IEXT :NO, BRANCH TO EXIT 
3860 042462 MANUAL sMANUAL INTERVENTION ALLOWED ? 
042462 104450 TRAP CSMANI 
3861 042464 BNCOMPLETE TL1EXT 3NO, BRANCH TO EXIT 
042464 103040 BCC TLIEXT 
3862 042466 1$: PRINTF #T11MS1 s;PRINT TEST 11 MESSAGE 
042466 012746 026221 MOV #T11MS1, -CSP) 
042472 012746 000001 MOV #1,-(SP) 
042476 010600 MOV SP ,RO 
042500 104417 TRAP CSPNTF 
042502 062706 000004 ADD #4,SP 
3863 042506 PRINTF @MMSG ;PRINT REQUIREMENT MESSAGE 
042506 012746 026536 MOV @MMSG, -( SP) 
042512 012746 000001 MOV #1,-(SP) 
042516 010600 MOV SP ,RO 
042520 104417 TRAP CSPNTF 
042522 062706 000004 ADD #4 ,SP 
3864 042526 GMANIL QUESTN,ANSWER,1, YES ;GET OPERATOR INPUT 
042526 104443 TRAP C$GMAN 
042530 000404 BR 10000$ 
042532 002354 -WORD ANSWER 
042534 000130 -WORD TSCODE 
042536 026716 -WORD QUESTN 
042540 000001 -WORD 1 
042542 10000$: 
3865 042542 005737 002354 TST ANSWER ;DID OPERATOR ANSWER YES ? 
3866 042546 001407 BEQ TL1EXT 3NO, BRANCH TO EXIT 
3867 042550 005037 002354 CLR ANSWER ;CLEAR OPERATOR ANSWER 
3868 042554 112737 000062 902424 MOVB #62, TSTNAM ;LOAD PROGRAM NAME CASCII 2) 
3869 042562 004737 032150 JSR PC ,ORVTST ;GO RUN THE INTERNAL DRIVE TEST 
3870 042566 TL1IEXT: EXIT TST 
042566 104432 TRAP CSEXIT 
042570 000002 -WORD 1L10033-. 
3871 042572 ENDTST 
042572 L10033: 
042572 104401 TRAP CSETST 








HARDWARE TEST 
TEST 12: VELOCITY FAULT ISOLATION TES 


3873 


3881 042630 


3882 042650 


3883 042664 
3884 042670 
3885 042672 
3886 042676 
3887 042704 
3888 042710 


3889 042714 
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032764 
001042 


104450 
103040 
012746 
012746 
010600 
104417 
062706 


012746 


000601 000014 


026324 
000001 
000004 
026536 
000001 


000004 


002354 
002354 


000063 002424 
004737 032150 


104401 
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(Internal Drive Test 3) 


-SBTTL TEST 12: VELOCITY FAULT ISOLATION TEST (Internal Drive Test 3) 


Ti2:: 


1$: 


10000$: 


TL2EXT: 


L10034; 


BGNTST 

BIT @DRPFLG, LUNFLG(R4) 
BNE T1L2EXT 

MANUAL 

TRAP C$MANI 
BNCOMPLE TE T12EXT 
BCC TL2EXT 

PRINTF #T12MS1 

MOV #T12MS1, -C(SP) 
MOV #1,-CSP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD #4 ,SP 

PRINTF #MMSG 

MOV @MMSG, -C SP) 
MOV #1,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD #4 ,SP 

GMANIL QUESTN,ANSWER,1, YES 
TRAP C$GMAN 

BR 10000$ 

-WORD ANSWER 

-WORD TS$CODE 

-WORD QUESTN 

-WORD 1 

TST ANSWER 

BEQ T12EXT 

CLR ANSWER 

MOVB #63, TSTNAM 
JSR PC ,ORVTST 
EXIT TST 

TRAP CSEXIT 

-WORD L10034-. 
ENDTST 

TRAP CSETST 


sIS THE DRIVE AVAILABLE 
sNO, BRANCH TO EXIT 
sMANUAL INTERVENTION ALLOWED ? 


sNO, BRANCH TO EXIT 
sPRINT TEST 12 MESSAGE 


sPRINT TEST REQUIREMENT MESSAGE 


sGET OPERATOR INPUT 


sDID OPERATOR ANSWER YES ? 

sNO, BRANCH TO EXIT 

s;CLEAR OPERATOR ANSWER 

sLOAD PROGRAM NAME CASCII 3) 
GO RUN THE INTERNAL DRIVE TEST 





SEQ 109 





HARDWARE TEST 


3891 
3892 
3893 
3894 
3895 
3896 
3897 


3898 


3899 


3900 


042716 
042716 
042716 
042724 
042726 
042726 
042730 
042730 
042732 
042732 
042736 
042742 
042744 
042746 
042752 
042752 
042756 
042762 
042764 
042766 
042772 
042772 
042774 
042776 
043000 
043002 
043004 
043006 
043010 
043012 
043012 
043016 
043022 
043024 
043026 
043030 
043032 
043032 
043034 
043036 
043040 
043042 
043044 
043046 
043046 
043052 
043054 
043060 
043064 
043070 
043074 
043100 
043100 
043102 
043104 





MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 84 
TEST 13: SELECT A ORIVE RESIDENT TEST (Internal Drive Tests 1- 


012702 
012703 
112322 
105713 
001401 
111312 


112712 


104432 
000002 





000001 000014 


026430 
000001 


000004 
026536 
000001 


000004 


002424 
022754 


002354 


002354 
032150 
002424 
000040 
000040 





-SBTTL TEST 13: SELECT A DRIVE RESIDENT TEST (Internal Drive Tests 1-99) 


T13:: 


1$: 


100003: — 


10$: 


10001$: 


T13EXT: 


BGNTST 

BIT @DRPFLG, LUNFLG(R4) 
BNE TI3EXT 
MANUAL 

TRAP C$MANI 
BNCOMPLETE TI3EXT 
BCC TL3EXT 
PRINTF #T13MS1 

MOV #T13MS1,-CSP) 
MOV #1,-(SP) 
MOV SP ,RO 

TRAP CSPNTF 

ADD #4 ,SP 
PRINTF @4MSG 

MOV @MMSG, -C SP) 
MOV #1,-CSP 
MOV SP ,RO 

TRAP CSPNTF 

ADD 04 ,SP 
GMANID SELTST,MANTBL,A,,1,2,NO 
TRAP C$GMAN 

BR 10000$ 
-WORD MANTBL 
-WORD TS$CODE 
-WORD SELTST 

- WORD 

-WORD TS$LOLIM 
WORD TS$HILIM 
MOV #TSTNAM,R2 
MOV #MANTBL ,R3 
MOVB (R3)+,(CR2)+ 
TSTB (R3) 

BEQ 10$ 

MOVB (R3),CR2) 
GMANIL QUESTN,ANSWER,1,YES 
TRAP C$GMAN 

BR 10001$ 
-WORD ANSWER 
-WORD TS$CODE 
-WORD QUESTN 
WORD 1 

TST ANSWER 

BEQ T13EXT 

CLR ANSWER 

JSR PC ,DRVTST 
MOV &TSTNAM,R2 
MOVB #40,(R2)+ 
MOVB #40, (R2) 
EXIT TST 

TRAP CSEXIT 
-WORD  L10035-. 
ENDTST 


sIS THE DRIVE AVAILABLE 
sNO, BRANCH TO EXIT 
sMANUAL INTERVENTION ALLOWED ? 


sNO, BRANCH TO EXIT 
sPRINT TEST 13 MESSAGE 


sPRINT TEST REQUIREMENT MESSAGE 


sASK OPERATOR FOR TEST NUMBER 


s;GET ADDRESS OF DRIVE TEST NAME 
sGET ADDRESS OF OPERATOR INPUT DATA 
sLOAD 1ST DIGIT OF TEST NAME 

sCHECK FOR A 2ND DIGIT 

sBRANCH IF NONE 

sLOAD 2ND DIGIT OF TEST NAME 

sASK OPERATOR IF READY 


;DID OPERATOR ANSWER YES ? 

sNO, BRANCH TO EXIT 

;CLEAR OPERATOR ANSWER 

;GO RUN THE INTERNAL DRIVE TEST 
;GET ADDRESS OF DRIVE TEST NAME 


sRETURN DRIVE TEST NAME TO ASCII SPACES 





HARDWARE TEST 


043104 
043104 
3917 043106 


3960 043106 


3971 043106 
043106 
043110 


3979 043110 
043110 
043112 
043114 
043116 

3980 043120 
043120 
043122 
043124 
043126 
043130 

3981 043132 
043132 
043134 
043136 
043140 
043142 


3983 043144 
043144 


3985 043146 


3986 043163 
3987 043175 


3991 043220 
043220 
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TEST 13: SELECT A DRIVE RESIDENT TEST (Internal Drive Tests 1- 


104401 


000044 


000031 
043146 
160002 
177564 


001032 
043163 
000777 
000060 
000776 


002032 
043175 
000777 
000000 
000251 


026004 
124 


124 
124 


125 
125 
057 





111 
040 
115 


L10035: 
TRAP CSETST 
ENDMOD 


- TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


++ 
; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

g= 


BGNHRD 
-WORD L10036-L $HARD/2 
L$HARD:: 


GPRMA TUIPAD,0,0,160002,177564, YES 
-WORD TSCODE 

-WORD TUIPAD 

-WORD TS$LOLIM 

-WORD TS$HILIM 

GPRMD TUVECT,2,0,777,60,776, YES 


-WORD TS$CODE 
WORD TUVECT 
WORD 777 


GPRMD TUUNT,4,0,777,0,251, YES 


-WORD TSCODE 
-WORD TUUNT 
-WORD 777 


-WORD T$LOLIM 
-WORD TS$HILIM 


EXIT HRD 
-WORD TSCODE 


TUIPAD: .ASCIZ ?TUIP ADDRESS? 
TUVECT: .ASCIZ ?TU VECTOR? 
TUUNT: .ASCIZ ?T/MSCP UNIT NUMBER? 
-EVEN 
ENDHRD 


-EVE 
L10036: 
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SOFTWARE PARAMETER CODING SECTION 








pres | -SBTTL SOFTWARE PARAMETER CODING SECTION 
4004 3++ 
4005 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
4006 s THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
4007 s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4008 + INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4009 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4010 ; WITH THE OPERATOR. 
4011 s-- 
4012 
4013 043220 BGNSFT 

043220 000000 -WORD L10037-L$SOFT/2 

043222 L$SOFT:: 
4014 
4021 
4022 -EVEN 
4023 
4024 043222 ENDSFT 

-EVEN 

043222 L10037: 
4025 
4026 
4036 5 RRRARREAEEREREREEEAEEEAEEEARAEERAEAAAEAAEAAARAKAAAEARARAREA RAKES 
4037 FE REREAREAEAEEAEAEEAAEEAEEAEAEEAEEAEARAAAAARAAALARAARARARLERE REREAD 
4038 8 
4039 sCOMMUNICATIONS AREA 
4040 THIS IS THE COMMUNICATIONS AREA THAT IS USED 


THROUGHOUT THE PROGRAM IN TESTING THE PERMUTATIONS 


° 
+ 
4042 ; OF THE UQ-PORT INIT SEQUENCE. IT IS ESSENTIAL THAT 
4043 ; THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 
4044 ; OF DIAGNOSTIC CODE SO THAT IT MAY BE SUCCESSFULLY 
4045 ; RELOCATED THROUGHOUT UPPER MEMORY VIA MEMORY MAN- 
4046 ; AGEMENT. 
4047 
4048 : 5 EREREEEARAAEAAEAAEARERAEAAEAAEAAEAAEAAARARAAEARRAREEREARALEREERES 
4049 3 § ERR AEAERAEEAEEAEEEEEAAEAREAEARAREAAAAAAAAARAEAREAAEARRRRRERALEE 
4050 
4051 060000 .=60000 ;START OF THE THIRD 8KBYTE BLOCK 
4052 ;0F VIRTUAL MEMORY SPACE. ACCESIBLE 
4053 ;VIA PAR/POR 2. 
4054 060000 RDBUF : : 
4055 060000 COMMBF : : 
4056 060000 -BLKW 20. ;BUFFER SPACE PRECEDING COMM AREA 
4057 060050 COMMAR: : 
4058 060050 .BLKW 514. — ;MAXIMUM COMM AREA LENGTH 
4059 062054 LASTBF: : 
4060 062054 -BLKW 20. ;BUFFER SPACE SUCCEEDING COMM AREA 
4 
4065 062124 LASTAD 
.EVEN 
062124 000000 “WORD 0 
062126 000000 “WORD 0 
062130 LS$LAST:: 
4066 062130 ENDMOD 
4067 000001 .END 
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Symbol table 
ABORT 002466 
ADR = 000020 G 
ANSWER 002354 G 
ASSEMB= 000010 
BAKPAT 031426 G 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITO3 = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOB = 000400 G 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 000004 G 
BIT3 = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BIT8 = 000400 G 
BIT9 = 001000 G 
BOE = 000400 G 
BRFLAG= 000004 G 
BUFDES 023653 G 
BYTCNT 023627 G 
B.DI = 000400 G 
B.ER = 100000 G 
B.GO = 000001 G 
B.IE = 000200 G 
B.LF = 000002 G 
B.MP = 000100 G 
B.NV = 002000 G 
B.0D = 000200 G 
B.PI = 000001 G 
B.PP = 100000 G 
B.QB = 001000 G 
B.S1 = 004000 G 
B.S2 = 010000 G 
B8.S3 = 020000 G 
B.S4 = 040000 G 
B.WR = 040000 G 
CCR = 177746G 
CDRECV 032556 G 
CHKCAC 030704 G 
CHKCOM 031456 G 


CHKRSP 033042 











CKCMEX 031614 


: 

= 

8 

S 

S 
HAGAHAAaAH 


oO 
o 
E 
D 
& 
$s 
3 
HAOAHHAG 


CSINIT= 000011 


CSINLP= 
CSMANI= 
CSMAP = 
CSMEM = 
CSMMU = 
C$MSG = 
CSOPNR= 
CSOPNW= 
CSPNTB= 
CSPNTF = 
CSPNTS= 
CSPNTX= 
C$PUTB= 
C$PUTW= 
CsQIo = 
C$ROBU= 
CSREFG= 
CSREL = 
CSRESE= 
CSREVI= 
CSRFLA= 
CSRPT = 
C$SEFG= 
C$SPRI= 
C$SVEC= 
C$TOME= 


EMSG24 
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025215 


ADHAHAAAADAANIAANAAIAAHAAHAARHAGAR AHAAA OO 


G$PRML= 


G$RADA= 
G$RADB= 


G$RADD= 000040 


zx 

v 

> 

x» 

res 
*eouuneuueunnenunuaua 





aheeee 
004000 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000040 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000167 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 


ao OD AHHOHOOHD 


HOOD ADNAAaD 


OHAARDHAAHAG 








SEQ 113 








PARAMETER CODING 
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Symbol teble 

KPOR1 = 172302 G LSICP 002104 G MMUSRO= 177572 G PRIO6 = 000300 G TSTNAM 002424 
KPDR2 = 172304 G LSINIT 033464 G MMUSR1= 177574 G PRIO7 = 000340 G TUIP = 000000 G 
KPORS = 172306 G LSLADP 002026 G MMUSR2= 177576 G PROGRH 002360 G TUIPAD 043146 
KPOR4 = 172310 G LSLAST 062130 G MMUSR3= 172516 G PROGRL 002356 G TUIPSV= 000010 G 
KPORS * 172312 G L$LOAD 002100 G MM220N= 000020 G PRTORV 032456 G TUSA = 000002 G 
KPDR6 = 172314 G LSLUN 002074 G MODIFY 023520 G PRTINT 031716 G TUSASV= 000012 G 
KPDR7 = 172316 G LSMREV 002050 G MSCPUN= 000006 G P.BCNT= 000014 G TUUNT 043175 
KTEXT 031146 L$NAME 002000 G MSCPVR= 000000 G P.BUFF= 000020 G TUVEC = 000004 G 
KTFLAG 002314 G L$PRIO 002042 G MSGLEN= 177774 G P.CRF = 000000 G TUVECT 043163 
KTTEST 030776 G L$PROT 022760 G NEXT 033604 P.ENDC= 000010 G TXFER = 000005 G 
LASTBF 062054 G L$PRT 002112 G NOKT 031142 P.FLGS= 000017 G TSARGC= 000001 
LESI 025632 G LSREPP 002062 G NUPASS 033570 P.IND1= 000020 G T$CODE= 026004 
LINEL 022774 G L$REV 002010 G ONEFIL= 000001 P.IND2= 000022 G TSERRN= 000030 
LINE2 023030 G LSRPT = seeee0 GX OPCODE 023500 G P.MOD = 000012 G TSEXCP= 000000 
LINES 023110 G L$SOFT 043222 G OP .ABT= 000006 G P.OPCD= 000010 G TS$FLAG= 000041 
LINES 023140 G L$SPC 002056 G OP .ELP= 000003 G P.STS = 000012 G T$GMAN= 000000 
LINES 023203 G L$SPCP 002020 G OP .END= 000200 G P.TIMO= 000024 G T$HILI= 000251 
LINE6 023260 G L$SPTP 002024 G OP .GDS= 000001 G QUESTN 026716 G T$LAST= 000001 
LINE? 023323 G L$STA 002030 G OP .REC= 000005 G RBUF = 177562 G T$LOLI= 000000 
LOE = 040000 G L$SwW 002234 G OUTER 002346 G RCSR = 177560 G T$LSYM= 010000 
LOGUNT 002332 G L$TEST 002114 G OWN =* 100000 G RCVDAT 002436 T$LTNO= 000015 
LOOP 031736 L$TIML 002014 G OSAPTS= 000000 RCVERR 027726 G T$NEST= 177777 
LOT = 000010 G L$UNIT 002012 G OSAU = 000000 ROBUF 060000 G T$NSO = 000000 
LSCT 025670 G L10000 002232 OSBGNR= 000001 RESPBF 002502 G T$NS1 = 000005 
LUNBLK 002234 G L10001 002234 O$BGNS= 000000 RNGSTP= 000004 G T$NS2 = 000002 
LUNFLG= 000014 G L10003 030654 O$DU = 000001 RSPBUF 002506 G T$PTNU= 000000 
L$ACP 002110 G 110004 030662 OSERRT= 000001 RSPEND 002716 G T$SAVL= 177777 
L$APT 002036 G L10005 030672 O$GNSW= 000000 RSPRNG 002716 G T$SEGL*= 177777 
LSAU 034010 G L10006 030702 OSPOIN= 000001 RSPSAV 022752 G T$SUBN= 000000 
L$AUT 002070 G L10007 033742 OSSETU= 000000 RSPSTP= 000104 G T$TAGL= 177777 
LSAUTO= «#eee0 GX L10010 033772 PAROFF 002320 G RSTVEC 031162 G T$TAGN= 010040 
L$CCP 002106 G L10011 034006 PASCNT 002312 G SAEXP 002334 G T$TEMP= 000000 
LSCLEA 033744 G L10012 034014 PCKSIZ 002742 G SELTST 026646 G T$TEST= 000015 
LeCO 002032 G L10013 034512 PDELAY 031302 G SFPTBL 002234 G T$TSTM= 177777 
L$DEPO 002011 G L10014 034202 POLYEX 031326 START 033536 T$TSTS= 000001 
L$DESC 002156 G L10015 034446 PORECV 032670 G STATUS 023755 G T$$AU = 010012 
L$DESP 002076 G L10016 034742 PKRECV 023706 G STEPST 002340 G T$$CLE= 010010 
L$DEVP 002060 G L10017 035360 PKSENT 023414 G STEP1 031330 G T$$DU = 010011 
L$DISP 002124 G L10020 036122 PNT =#= 001000 G STPTBL 002272 G T$$HAR= 010036 
L$OLY 002116 G L10021 037254 PRGNAM 023543 G STP1ER 031420 T$$HW = 010000 
L$DTP 002040 G L10022 036650 PRGVER 023775 G STPIEX 031424 T$$INI= 010007 
L$DTYP 002034 G 110023 037252 PRI = 002000 G STSEXT 037242 T$$MSG= 010003 
L$DU 033774 G L10024 040700 PRIDAT 027142 G ST6EXT 040666 T$$PRO= 010002 
L$OUT 002072 G L10025 040026 PRIERR 027222 G SVCGBL= 000000 T$$SOF= 010037 
L$DVTY 022766 G L10026 040676 PRIEX 030650 SVCINS= 000000 T$$SRV= 010006 
LSe€F 002052 G L10027 041442 PRIINI 027002 G SVCSUB= 000000 T$$SUB= 010026 
LSENVI 002044 G L10030 042204 PRIIP 027172 G SVCTAG= 000000 T$$SW = 010001 
LSERRT= s#aee¢ GX L10031 042266 PRIO7 = s&¢e48 GX SVCTST= 000000 T$$TES= 010035 
LSETP 002102 G L10032 042450 PRIPAD 027066 G S$LSYM= 010000 T1 034016 G 
LSEXP1 002046 G L10033 042572 PRISA 027026 G $1 = 004000 G Ti.1 034044 
LSEXP4 002064 G L10034 042714 PRIVAD 027114 G TEMP 002352 & T1.2 034230 
LSEXPS 002066 G L10035 043104 PRIOO = 000000 G TEST.9= 000010 G T10 042270 G 
L$HARD 043110 G L10036 043220 PRIO1 = 000040 G TF.BLK= 000010 G TLIOEXT 042444 
L$HIME 002120 G L10037 043222 PRIO2 = 000100 G TIMOUT 024026 G TIOMS1 025724 G 
LSHPCP 002016 G MANTBL 022754 G PRIO3 = 000140 G TOUT 002350 G TLOMS2 026032 G 
L$HPTP 002022 G MMON = 000001 G PRIO4 = 000200 G TRAP4 030656 G TLOMS3 026057 G 
LSHW 002224 G MMSG 026536 G PRIOS = 000240 G TRP4FG 002316 G 026134 G 














PARAMETER CODING MACRO YOS.02 Thursday 25-Jul-85 16:53 Page 86-3 
Symbol teble 


Til 042452 G T2EXT 034736 T6EXT 040022 UAM 

TLI1EXT 042566 T3 034744 G T6.1 037256 VECTOR 
TilMS1 026221 G TSEXT 035354 16.2 040030 VEC4 

Ti2 042574 G 14 035362 G 17 040702 G WRBUF 
TL2ZEXT 042710 T4EXT 036102 T7EXT 041436 WROATA 
T12MS1 026324 G TS 036124 G T8 041444 G WRER1 
T13 042716 G TSEXT 036640 TBEXT 042200 WRER2 
TI3EXT 043100 TS.1 036124 19 042206 G WRER3 
TI3MS1 026430 G 15.2 036652 T9EXT 042262 WRER4 
T2 034514 G 16 037256 G TOFLAG= seee08 GX WRERS 


- ABS. 062130 000 3 =6(RW,I,GBL,ABS,OVR) 
000000 001 (RW,I,LCL,REL,CON) 
Errors detected: 0 


#4 Assembler statistics 


Work file reads: 291 

Work file writes: 299 

Size of work file: 34376 Words ( 135 Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elepsed time: 00:07:39.61 
CZTU2A.BIN,CZTU2ZA/ -SP=SVC4OR .MLB/ML,CZTU2A 





025351 G 
€25375 G 


SEQ 115 


